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LL III] SSSSSSSS 
LL I] SS 
LL 1] Ss 
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LL I] SSSSSS 
LL II SSSSSS 
LL II SS 
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1 lf NDF , CONF IGSW 
; TITLE SYSGEN = SYSGEN UTILITY AND PARAMETER FILE EDITOR 
: TITLE CONFIGUTL = SYSGEN UTILITIES FOR CONFIGURE PROCESS 
0 é “IDENT 'V04=002" 
09 : Seeeeeeeererecerereereererereeeeeenereeeeeeeeeeeeeeteeeeeeeeeteneeeeeeeeeerer 
sf *% 
10 ;* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
00 11 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
; \§ is ALL RIGHTS RESERVED. * 
P4 . 
000 14 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND re * 
00 15 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Th AND WITH THE ® 
00 16 :* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF TWA RE OR ANY OTHER ® 
00 17 ;* COPIES THEREOF my NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 10 ANY * 
0000 18 ;* OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
+ y 3* TRANSFERRED. * 
;* ® 
0000 1 3;* THE ory le IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 ¢ 3* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 ? :* CORPORATION. . 
e ® 
0000 5 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
44 $ :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
4 ® 
0000 8 ;* * 
44 4 FRAAAAAAA AHA AERA AA AAA AAA AAAAAAAAAAAAAAAAARARAAAAAAATERATAAAERAATKERERAAeeS 
0000 ; se 
0000 ¢ g , : 
444 Z ; Facility: System generation and initialization 
0000 i : Abstract: SYSGEN is the main routine to provide all SYSBOOT parameter 
44 § 3 alteration commands in an online environment. 
9000 38 : Environment: 
9000 40 j Author: RICHARD 1. HUSTVEDT, Creation date: 4-MAY-1978 
0000 4g : MODIFIED BY: 
0000 43; 
000 44 ; v04-002 WHMO0011 Bill Matthews 14-Sep-1984 
33 oz : Changed the defaults for the MSCP command. 
000 ‘3 : v04-C01 wHn0010 Bill Matthews 04-Sep-1984 
0000 48 ; Changed 10 PRIORITY default = the MSCP command and 
44 4 3 disatlow loading of the MSCP server multiple times. 
000 3f : v03-023 wHM0009 Bill Matthews 23-Jul-1984 
44 2§ : Changed defaults for the MSCP command. 
000 4: v03-022 wHM0008 Bill Matthews 20-Apr-1984 
00 5; Removed matte CURRENT code that wrote the SYSGEN parameters 
B28 § : to SYS.E 
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v03-021 wHM0007 “att Matthews 04-Apr-1984 
Added support to write ry) to write to a seperate 
efault system parameter f 
Added support to use file = accept long ascii sysgen parameters 


v03-020 WHM0006 Bill Matthews 14-Mar-1984 
Modify SGNSGET_DEVICE to take out the I/0 database MUTEX and 
raise IPL before calling IOC$SEARCHALL. 


v03-019 unsees Bill Matthews 13-Mar-1984 
Move definition of BOOSGL -LOAD_ARGS from SYSBOOCMD to 
this module. 


v03-018 ACGO399 Andrew C. Goldst 10-Mar-1984 0:36 
Change check for $s$ NODEVAVL to e5es_ NOSUCHDEV due to 


SSssssssssssss 
SOoOSooCoCoOoOoooooooooooo°oSe 


COOCOCCOOOVOQOOCOOCOCOOCOooooe 
S 


00 71 : 
00 Lf; 3 
4 if 3 rewrite of IOCSSEARCADEV. 
00 75 ; V03-016 WHMO004 Bill Matthews 23-Feb-1984 
8 6 : Added support for loading and starting the MSCP server. 
00 78 ; V03-015 WHM0003 Bill Matthews 04-Feb-1984 
0000 79 ; Added support for ACFS$B_COMBO_VECTOR_OFFSET to clean up support 
464 H+ : of combo style devices. 
0000 «82: v03-014 7MK0001 Todd M. Katz 31-Jan-1984 
464 + : Change a BSBW to a JSB. 
0000 «85: v03-013 wHmooo2 Bill Matthews 13-Dec-1983 
0000 86 ; Fixed several calls to SGNSGET DEVICE to pass the unit number 
0000 87 ; to be Senneeeey | not the maximum units. 
0000 88 ;: Added su peer’ the new CONNECT command qualifiers 
94 4 : /CSR_OFFSET a, TVECTOR OFFSET. 
0000 —(«91:: v03-012 JLVv0312 Jake VanNoy 26-0c t-1983 
44 g : Fix bug for microVAX that ailous nexus 0 in CONNECT. 
0000 «94: v0O3-011 WHMO0001 Bill Matthews 09-Dec-1983 
4 32 : Changed some bsby" s to jsb' 
0000 «97: v03-010 wncoo0s Wayne Cardoza 09-Aug-1983 
0000 98 ; x loadable code error handling. 
464 100 : USEACTIVE should be in configutl. 
4 0 101: v03-009 unCOOge Wayne Cardoza 29-Jul-1983 
4 19 : More features for code loading. 
0000 104: v03-008 wMc0001 Wayne Cardoza 27-Jul-1983 
it 133 : Support general code loading. 
0000 199 : v03-007 MSHO006 ann Hinden 24-Jun-1983 
0000 138 : Use SBOOCMDDEF scone of S$BOODEF. 
000 110: v03-006 MSHOOOS Maryann Hinden 04-May-1983 
BOS 1} ; Changes to support CONFIGURE process. 
000 118 : v03-005 MSHO004 arvana Hinde 13-May-1983 
000 114; Change some BsBu PUTERROR instructions to SB. instead. 
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15; 
O00 118 : v03-004 MSHO003 Maryann Hinden 31-Jan-1983 
38 1 3 Add support for cluster device names. 
000 119 ; v03-003 TCMO001 Trudy C. Matthews 8-Nov-1982 
000 120; Use new ADPSL_AVECTOR field in calculation of ACF$wW_AVECTOR, 
009 | 1: instead of calculating it from the adapter's TR number. 
B00 1 : 3 v03-002 MSHO002 Maryann Hinden 22-0c t-1982 
44 } ¢ 3 Fix broken BSBW. 
444 1 § ; v03-001 MSHO001 Maryann Hinden 30-Sep-1982 
000 127; Check for DDBSL_UCB = 0. 
0000 128 ;-- 
0000 129 
8088 130 ; 
0000 13) : Include files: 
0000 «(1 ¢ 3 
0000 13 SACF DEF ; Define autoconfiguration block 
0000 134 SADPDEF : Define odepter control block 
0000 86135 SBOOCMDDEF 3; Define SYSGEN command options 
0000 136 SCLIDEF 3; Define CLI codes and values 
0000 137 SCRBDEF ; Define CRB offsets 
0000 86138 SDDBDEF : Define DDB offsets 
0000 139 SDYNDEF 3; Block types 
0000 140 SHLPDEF : Define HELP symbols 
0000 141 SIDBDEF ; Define IDB offsets 
0000 16 SIHDDEF : Image header offsets 
0000 14 SIPLDEF ; Define IPLs 
0000 144 SJPIDEF 3; SGETJPI definitions 
0000 145 SLBRDEF ; Librarian symbols 
0000 146 SOPCDEF ; Operator message definitions 
0000 147 SPRDEF ; Define processor registers 
0000 148 SPRMDEF ; Parameter descriptor definitions 
0000 149 SBDEF : SCS system block definitions 
0000 150 SSHRDEF : Error codes 
0000 =: 151 SSLVDEF 3; Loadable code header 
0000 136 SSSDEF : Define system status values 
0000 15 $SYSGMSGDEF : sysgen messages 
000 154 STPADEF 3; TPARSE definitions 
000 155 SUCBDEF : Define UCB offsets 
0000 156 SVECDEF ; Define VEC offsets 
0000 157 
3208 138 3 
464 1% 3 Equated Symbols: 
0000000D 0000 161 CR=13 ; Character value for carriage return 
0000000C 0000 166 FF=1 ; Character value for form fee 
Q000000A 0000 16 LF=1 ; Character value for Line feed ; 
00001000 0000 164 UBA_IOBASE=8*512 ; Offset from UBA configuration register 
000 165 ; to base of 1/0 page 
4 166 ; 
36 19 ; Own Storage 
0000000 188 -PSECT $$$$000,NOEXE ,NOWRT ; PSECT to mark lower address 
38 1 ? BOOSLOL IM: : ; Marker definition ve 
0000000 17 ~-PSECT ____222,WRT PAGE ; PSECT to mark upper address Limit 


Eee a... 
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SOSHEL EM 5 5 
-PSECT NONPAGED_DATA rd.wrt.noexe, quad 
¢ BOOSAB arenes ; Non=-paged Patch area 
00000200 $12 One pave 


LKB 
BOOSAB_ PanBUF : 
BOOSAB -LOADBUF: 


norene er buffer 
enerous buffer 


pulfes for code loader 


ee 


1 
1 
174 
1 
1 
1 
1 
1 
180 
1 
138 
188 
184 
1 
196 
187 
188 
1 
190 
1 
1 
1 
1 
1 
1 
1 


7 
BLKB 512 
3 ? ACFSGL =P0B: Leis 
ACFSGL vib: 
00000000 2404 ong 0 
rts : ACFSGL_ 168°: 
00000000 240 ong 0 
ret ACFSGL ach 
00000000 24 ong 0 
41 89 ACFSGL List B:: 
00000000 241 ong 0 
414 91 ACFSGL pets 
00000000 2414 8 . Lon ng 0 
bt 93 ACFSGL _SB:: 
00000000 241 94 . LON 0 
41C 95 BOOSGL ~COMBO VECTOR_OFFSET: ; Offset to vector from start of combo 
00000000 241C 36 3; device's vectors 
4 97 BOOSGL _comBo CSR_OFFSET: : Offset to CSR from start of combo 
00000000 24 198 6 ; device's C 
4246 6199 eat ; Adapter TR number 
FFFEFFFFE 424 00 LON - : Null value — 
4 : 01 BOOSGL ~CONCREG: : ; Control register 
FFEFFFFF 4 -LON “21 ; Null value ; 
42C 03 BOOSGL_ CONCUNIT: : ; Controller unit 
FFEFFFFF 42C 4 - LON -1 ; Null value 
430 05 BOOSGL ~CONNUMU: : ; Number of Units to cont gure 
00000001 2430 ; Default value is 1 uni 
$3? 07 BOOSGL ~cONvecT: ; Vector offset 
FRFFFFFF 434 “al ; Null value 
4 : 44 BOOSGL _cONMURV 3; Number of vectors 
FFFFFFFF 4 “21 ; Null value 
43C 11 BOOSGL ~cONAUNIT : ; Adapter unit 
FFEFFFFF 43C¢ 1 -1 3; Null value 
44 15 BOOSGL _CONDEV:: ; Device name string address 
FREFFFFF 44 14 -1 ; Null value 
444 15 BOOSGL_CONDR 3 Driver nome string address 
FFFFFFFF 444 1 -1 ; Null value. 
44 17 BOOSGL_CONUNITS ; Maximum units 
00000000 244 4 : 
44C 19 BOOSGQ_CONSYSID ; System ID 
944464 44 0 3 Quadword 
000 0 245 1 ~ LONG 3 
PPL BOOSGL _CONCRB: : ; CRB address 
00000000 2454 LONG 3 
eee 4 BOCSGL_CONFLAGS:: : Flags 
00000000 24 5 -LONG 0 ; : 
45¢ BOOSGL _NEXTSTR:: ; Next string location 
00000000 tik LON 0 3 : 
46 8 BOOSGL _SELECT:: ; Address of select List 


ce -  . 


| 
| 


00 20 20 3E 4E 45 47 53 59 53 OA OD 


00000000 2460 ONG 
464 BOOSAL cf 181: 
ree 
00002466C 24 
8 BOOSGT"P 
4 mASCl 
48C BOOSAL LACE : 
00002484 248C BL KB 
BO0SGO_LIMITS:: 
00000000" 2484 1 
FFFFFFFF* 2488 ONG 
48C BO0SGO_RETADR: : 
00000000 00000000 248C -LON 
4C4 BOOSGL _RETSAVE:: 
00000000 24(4 ° 0 
rt: nee 
tee 6 ey 5 8 3s 38" 400 F ACNAME : 


41 53 43 406 
oS 

41 50 4F 00° 24DA 
03 

52 45 56 49 52 44 56 43 +f 4DE 

52 45 56 49 52 44 58 44 ge" 4€7 


52 45 56 49 52 44 44 44 oo" 4F0 


00006000 24F9 


6 CONSNAME : 
-ASCIC 
406 
4DA § BOOSGT _OPNAME : 
SASCIC. 


= 
4 
mm 
mr 


BOOSGT_CVNAME : : 
»ASCIC 


4 
mm 
rr 


Cou Wu WM WM WM WSS SSS SLES \ 
—OoO ON OW FW fF OOONOUFE WW —OOOWOuUF who 


BOOSGT_DXNAME : : 
»ASCIC 


= 
al 
Oo 
rr 


BOOSGT_DDNAME : : 
~ASCIC 


00 54FD 
4FE 64 
99009000, 24F 65 BOOSGL PARINUSE: : 
74 GE 65 72 72 75 43 00" 2508 266 BOOSGT~ CURRENT : 
65 76 69 7% 63 41 30h 267 BOOSGT_ACTIVE:: 
74 6C 75 61 66 65 46 511 268 BOOSGT_DEFAULT:: 
00002559 2519 269 BoOsGT_FILE:: 
9 53 561°010E0000" S889 $72 MELPTHLEL 
5 47 + 29008 $3 H etd ‘ 367 : 
1 5574 273 HELP_LAG: 
00002580"Ss or 9000" 378 are HELP~DESC: 


BOOSHILIM-1 
0,0 


atta eesecon?* F ACNAME 
FACNAMSZ=. =F ACNAME 


BOOSGL_FILEADDR:: 
. LONG 
4FD 6¢ BO0SEE_FILELEM:: 
6 -BYTE 0 
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CLIREGDESC : 


YPE=CLISK GETCMD 


BOO$GO_ cWOESC==B005AL _CLIBLKFCLISW_ rosizt 
<CR><LFOZSYSGEN> 2% 
ACFSC_LENGTH 
BOOSLOLIM 


/SYSGEN/ 


/CSA/ 


/OPA/ : 


/CVDRIVER/ 


/OXDRIVER/ 


/DDDRIVER/ 


-LONG 0 
eASCIC /Current/ 


-ASCIC /Active/ 
-ASCIC /Default/ 
-BLKB 64 


/SYSSHELP: SYSGEN.HLB/ 


. lon hl p$m rom 
%4 // —_ omP ited in 


asc 


paces Macro v04-00 Page 5 
BOOTS.SRCISYSGEN.MAR; 3 (1) 


CLI call back block 
Get command call back block 


; Command descriptor address 
Prompt. string 


Auto-configuration block 


; Allocate space for it 
; High and low address Limits for lockdown 
; Lower address bound 


; Return address receiver 


Saved co-routine return address 
Facility name descriptor 


Length of facility name 
Console block storage 

device name 

Console terminal device name 
Name of RLO2 driver 

Name of floppy driver 

Name of TUS8 driver 


File spec address 
File spec length 


; Help Library file name 


as pointer 
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00000000 


fo aT al * abv abrab sh ab Ah Ab Ab AL Ab Ab Ab Ab Ab AL AL AL AD AL AL AL AL AL AD AR AL AL AL VAL ALM AL ALY AL Al 


CON TNH HMMM Mm oD 
OOOH SM OOO 


— 


aS 


14 
00001000 
sa Bh 944 


0000258 
90000080 
000025EC 


50 43 53 4D 00° 
04 


55 21 43 41 21 20 eensnetdiienn «3 
57 55 21 2C 00002608'010E0000" 
00000000 
sis sit 44 

sp et 43 
00002630°010E0000" 

00002694 


00000000 


0001 
0000 


SA88 


@Ooorrrrovono 
AOOOOO@LOO@sS 


* 


? 
7 


0 
1 
§ 
4 
5 


woOO0O00000MMo 
WEWN—OOe 


VALID_PAR_FILE: 


-1984 00:13:54 VAX/VMS Macro v04-00 S 
138s 98:35:75 HRRCVES Resco yoK-C. . ave 8; 


; Valid parameter file flag 
; Save dot through USE filespec 
: Full device name 


3; MSCP initialization routine default argument List 


CONG 
SAVE _DOT: . 
FULL_NAME PTR:: 
-CONG 0 
MSCP_ARG_LIST: 
«LONG 8 
- LONG } 
- LONG 2768 
«LONG 4 
-LONG 15 
LONG 20 
-LONG 4 
- LONG $098 
-LONG 16384 
-BLKL 3 
MSCP_ARG_LIST_SIZE 


BOOSGL_LOAD_ARGS: : 


Number of arguments 

Function code(load and start server) 

Default buffer size 

Default number of receive credits for each host 
Default number of hosts supported 

Default time out 

Default reer ine ; 

Default for minimum qualifier 

Default for maximum qualifier 

; qeece for new args 


= .-MSCP_ARG_LIS 


; Argument List block loadable code init 


-BLRB MSCP_ARG_LIST_SIZE 3 routine 


MSCP_NAME : ~ASCIC 


; AUTO ALL /LOG storage 

CTRSTR_AUTOLOG: 

CTRSTR_AUTOLOG_UNIT: 
tlen_unit: 


tlen: 
Boo$gt_save_devname: 
outbuf: 


outbuf_str: 
; Send operator message 
OPERGETJPI: 

«WORD 

WORD 

ADDRESS 

- LONG 
OPERMSGVEC: 

- WOR 3 

-WORD “B1111 
OPERMSGID: 

-LON 0 
OPERMSGF AO: 

«WORD 1 

-WORD 0 


/MSCP/ ;MSCP server name 


eascid / !AC!UW/ 


one 0 
-blkb = 20 
eascid // 
-blkb 100 
data 
; SGETJPI item List 

4 :; Buffer Length 
JPI$ PID ; Process ID code 
OPERASGPID ; Buffer address 
; Don't return Length 

; List terminator 


; SPUTMSG message vector 
; Argument count 
; Default message flags 


; Message ID 


FAO argument count 
No new message flags 


te £ 
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68 1 OPERMSGPID: ; PID of this process 
oooo0000 $¢e0 : 0 “ 
6B4 OPERMSGNAM: i File specification 
00002688" oa6 : - ADDRESS OPERNAMDE SC 
68 § OPERNAMDESC: 
e «LONG 0,0 
6C § OPERMSG: ; Message descriptor 
6c 40 -LON 0 
oct rt ADDRESS OPERMSGBUF 
ec rk OPERMSGBUF : ; Message buffer 
00000103 26C 6G «LONG OPC$_RQ_ROST!<OPCSM_NM_CENTRL@8> ; Message type and target 
00000000 2é6(C 45 el 0 3; No reply message 
6D0 £6 OPERMSGTXT: ; Message text 
00002700 4 nf -—BLKB 256 
700 49 If NDF , CONF I1GSW 3; SYSGEN-specific code 


dooozece 


— 
i 


| SYSGEN = SYSGEN 
soe eb02 BOOSUSEF I 
7D 
7D 
7D 
7D 
7D 
7D 
7D 
7D 
7D 
700 
700 
700 
700 
700 
700 
700 
7D0 
700 
700 
7D0 
00000000 
0000 
O3FC 0000 
000 
000 
00000000 ° 8F E2 0002 
00 00000000 ' GF Bpbe 
00002584 "EF OQOOO0000"EF D0 ODODE 
57 10 AC 9E 0019 
FFEO’ 30 001D 
04 50 8 Boss 
50. 601 C 002 
04 0026 
56 O0000200°EF 9E& 0027 
59 10 00 Ones 
FFCC’ 30 0031 
C50 «6&9 «60034 
58  00000200'EF 9E 0037 
OOO00000"EF 68 20 28 OO3E 
20 CO 0046 
00002580'EF D4 0049 
68 05 O04F 
56 13 0051 
10 68 9A 0053 
14 AC 01 AB QE 0057 
10 ¢cO 0O05C 
1¢ AC 88 p00 OOSF 
00000000 ‘EF 6C FA Bpe3 
—E2 50 €9 QO6A 
00002580'EF 01 b0 B60 
54 AC DO 0074 
22 10 A4 10 =«€1 078 
14 AC 78 DE 0070 
50 14A4 QA 0081 
50 50 FD ef 78 HH 
10 AC 0 9A OOBA 


& 
ILITY AND PARAMETER FILE Sort 16-SEP-1984 00:13:54 
- Use parameter file 1 


FW OOONOAUE wit 


POON) 


65 


79 


© OO 0090009 09 00 C0 C0 CD CO Co 
WN CO OCONOAUES WN Oo 


94 


Page 
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4-SEP-1984 16:09:11 (BOOTS.SRC 
-SBTTL BOOSUSEFILE = Use parameter file 


++ 
; Functional description: ; 

BOOSUSEFILE reads the specified file in response to the USE 
command and merges ali of the values specified in that file into 


by looking up each value specifi 
value. 


egeine . sequence: 
ALL arglist,BOOSUSEFILE 


Input Parameters: 


Output Parameters: 
RO = Completion status code 


-PSECT PAGED_CODE 


BBSS $#EXESV_WRITESYSPARAMS,- 
- G*EXESGL_DYNAMIC_FLAGS,1 
OVL § BOOSGL_DOT,L“SAVE_DOT 
MOVAB TPASL_TOKENCNT(APY,R7 
BSBw BOOSF TLOPEN 
BLBS  R0,20$ 
10S: MOVZUL #1,R0 
20$:  MOVAB BOOSAB_PRMBUF ,R6 
MOVL R9 
BSBW BOO$READFILE 
BLBC ~—_ «RO, 
MOVAB BOOSAB_PRMBUF RBS 
MOVC3 #32,(RB),EXESGT_STARTUP ; 
ADDL R 
CLRL VAL [D_ PAR FILE 
30S: TSTL = (RB) 
EQL DONE 
MOVZBL (R8),TPASL_TOKENCNT (AP) 


MOVAB  1(R8) TPASC_TOKENPTR(AP) ; 


ADDL #16,R8 

MOVL  (RBS+, TPASL_NUMBER(AP) 
CALLG (AP),L“BOOSSEARCH 
BLBC ~=—_—s«aR 0, 30 

MOVL #1.VALID_PAR_FILE 
MOVL  TPASL_PARAM( 

BBC #PRMSU_ASCII 

MOVA 

MOVZBL PRMS$B.SIZE(R4) RO 
ASHL #-3,R0,R 

MOVZBL RO, TPA$L_TOKENCNT (AP) 


the working copy of the parameter values. 


This is accomplished 
ed and merging the associated 


TPASL_TOKENCNT(AP) = Length of file name string 
TPASL_TOKENPTR(AP) = Address fo file name string 


rd,nowrt,exe, long 
-Entry BOOSUSEFILE, “M<R2,R3,R4,R5,R6,R7,R8,R9> 


; Entry mask 
i Use a file => write current needed 


Save dot , - 

Set address of file name descriptor 
Open specified file 

Continue if success 

Force success 


; Set address of parameter buffer 

; Set size of buffer. 

; Read file content into parameter buffer 

; Exit if error 

: Init pointer to parameter buffer 

; Set startup command file name 

; .and advance buffer pointer 

: Initialize valid per encter file flag 

; Check for end of List 

; Branch if yes 

; Set token count for search 

3; And address of string 

; Advance to value 

; Set number 

; Search for parameter 

; Next parameter if not found 

: Indicate valid parameter file ; 
pointer to the parameter descripttor 


P),R4 3; Get 
PRMSL_FLAGS(R4),40$; Branch if not an ascii parameter 
= (RB). TPASL FOKENPTR CAP) ; Get a pointer to the parameter value 


; Get parameter size in bits 
; Set parameter size 


G 6 
Y cen = SYSGEN UTILITY AND PARAMETER FILE EDIT 19360-1386 90: 13:36 mee Macro V04-00 Page 9 
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co 4 ADOL #3,R0 ; Round size up to the next Longword 
ee ee cee: : ~ 
co 96 410 ADOL RO,R ; Advance past value 
OOOO'CF 6C FA 97 411 CALLG (AP) ,W*BOOSSETASCII ; Set the value of the parameter 
FFBO 80-31 9C 216 BRw ; Continue with the next parameter 
OOOOOOOO"EF 6C FA 9F 4135 40S: CALLG (AP),L*BOOSSETVALUE ; Set value of parameter 
FA6 4 of 414 BRw 0$ 3; Continue with next parameter 
FFS4° 4 A 415 DONE: B8SBW BOOSF ILCLOSE ; Close the file . 
09 at $3 = @ pat rt BLBS VALID_PAR_FILE,10$ ; If LBS, valid parameter file 
50 OO7CB0EA 8F 00 008 41 MOVL #SYSGS_NOTPARAM,RO ; Set error 
1 11 QOBA zis BR 208 3; Branch 
OBC 419 108: 
OBC 420; 
Beet ? 1 ; Set file name in BOOSGL_PARINUSE 
58 peeves "ee DE Boag 4 : MOVAL BOOSGT FILE,R8 ; Set address of String 
OOOO24FE'EF 8 pO O0C 424 MOVL R8,800$GL_PARINUSE : Set address 
68  QO0024FD'EF 9A OOCA 425 BOVeRL. BOOSGB _FICELEN, (R8) : Set count 
O00024F9"FF 68 28 0001 426 MOVC3  (R8) ,@BOOSGL_FILEADDR,- ; 
01 AB 9008 4g? 1(RB5 ; Move string 
50 01 3C OQODA $92 MOVZWL #SS$_NORMAL,RO ; Return success 
OO000000"EF  00002584'EF ed $39 20$: nove L*SAVE_DOT,BOOSGL_DOT =; Restore dot 
OOE9 432 -ENDC 3; End of SYSGEN-specific code 
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-002 BOOSUSEACT = Use active parameters 14-SEP-1984 16:09:11 ([CBOOTS.SRCISYSGEN.MAR; 3 
0E9 434 -SBTTL BOOSUSEACT = Use active parameters 
OE9 435 ;+4+4 
0E9 4 § ; Functional description: 
O0E9 437; This routine copies the parameter values from the running 
O0OE9 438; system to the working copy of the parameter values. 
O0E9 439 : Calling sequence: 
its 440 ; 
OE9 441; CALLS #0,BOO$USEACT 
Bees 442 ; 
0OE9 44 : Input pereasnerss 
QOE9 444 ; 
44 445 : Output Parameters 
0E9 440; RO - Completion status code 
Q0E9 447 a= 
QO0E9 448 
003C Spee $83 -Entry BOOSUSEACT,“*M<R2,R3,R4,R5> 
0000'S8F 28 OQOOEB 451 MOVC3 diy SYSPARSZ,=- Move parameters 
00000000°EF 00000000'EF OOEF 43¢ A SYSPARAM, EXESA_ SYSPARAM 
OOOO2SOA"EF DE OOF9 45 MOVAL pocse? ACTIVE,- 
OOOO24FE ‘EF OOFF 454 BO O0$GL~ “PARINUSE ; Set parameter in use 
50 01 DO 01046 455 MOVL #1,R0 ~ ; Return success 
04 0107 456 RET 
0108 457 IF NDF , CONF IGSW 3; SYSGEN-specific code 


on 
-O 


eo 


55 00000000'EF 


5365 
28 
00 

1E 10 AS 

51 15 AS 

52 63 14 A5_ 51 
50 aoney 00° f 
14 AS 51) 5 
00000000'E 

os Fs 

) 

FFFFFFFF ‘SF 

50 00000000°EF 

00000000' 

00000000 * EF 


£uw 
za 
=m 
a 


MSwrO0 3-4 
Be Oe Oe Oe Oe Oe Oe Be Oe Oe Oe Se Se Oe ee 


SELL LEE 
POAOAASOOM fe 


as 
o~ 


FY af af af af at at at at at ta 
000 


; 10$: -WORD “M<R2,R3,R4,R5> 


5 
20$:  MOVL = PRMSL_ADDR(RS),R3 
40$ 


-—> RAOOMo MmM—o 

-—-o onms> ~—WO 
ea eee et 8 Oe oe ee 
WMFWwn—OO0e MEFWN—O 


j 
} 
} 
D 
00000140'EF 
007CA0 

09 50 

00000000 EF 

50.01 


Y AND PARAMETER rite fort 16-SEP-1984 00:13:54 
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-SBTTL BOOSWRTACT = Write parameters 


++ 
Functional Description: 
This routine writes the parameters in 


parameters are copied. 


vannien . Sequence: 
ALL #0 ,BOOSWRTACT 


Input Parameters: 
None 


Output Parameters: 
RO = Completion status code 


-PSECT NONPAGED_CODE rd,nowrt,exe,long 
Entry BOOSWRTACT, “M<> 


SCMKRNL_S 
BLBC RO, 
JSB BOOSSENDOPER 
.LONG SYSG$_WRITEACT 
BLBS sR 
1$: JSB PUTERROR 


MOVL #1,R0 
ET 


MOVAB L“BOO$A_PRMBLK,RS 
DSBINT #IPL$_SCHED 


ASSUME PRMSL_ADDR EQ 0 


BBC #PRMSV DYNAMIC «= 
PRMSL_FLAGS(R5S ,30$ 
MOVZBL PRMSB~POS(RS) 


SUBL RO,R 


MOVAB ata 
R2.R 
L“MMGSA_SYSPARAM(R 


buffer to the system's parameter area. 


tA Macro v04-00 


BOOTS.SRCJSYSGEN.MAR; 3 


to system 


the working parameter 
Only dynamic 


B*10$, (AP) ; Do it in kernel mode 
; If LBC. error 
3; Notify operator of WRITE ACTIVE 


; If LBS, success 
; Report error 
3; Force success 


Get base of parameter blocks 
Raise IPL to prevent being unscheduled 
(Assumes pages are locked in W.S.) 


; Get address of parameter 

; Reached the end 

; Branch if this is not a 

3; dynamic parameter 

; Get position of parameter 
EXTZV R1,PRASB_SIZE(R5),(R3),R2 ; Extract parameter value 

0 ; Get address of working buffer 

3; Get parameter offset 

PRMSB Sire tae} ; Store in system 


30$: ADDL SO ENaC LENGTNRS ; Point to next paramter block 


BRB ; Repeat 


; Copy dynamic flags from default flags to RO 
40$: BICL3 #*C<PRMSM_DYNFLAGS 


AGS>,= 
MMGSA_SYSPARAM+<E XESGL_DEFFLAGS-EXESA_SYSPARAM> ,RO 


BICL  #PRMSA_DYNFLAGS 
EXESGL “FLAGS 


; Clear dynamic flags in real flags 


“ao 


— 


SYSGEN = SYSGEN yriuity AND PARAMETER rite Sort ! meh 9 90: ha: AX/VMS pos ro V04-00 Page 18 
v04-002 BOOSWRTACT = Write parameters to system 14-SEP-1984 BOOTS. sRCd SYSGEN.MAR; 3 (2) 
OOOOO000'EF 50 C8 e : BISL RO,EXESGL_FLAGS ; Set dynamic flags in real flags 
o8 18 ENBINT ; Lower IPL 
50 01 00 00 1 MOVL #1,R0 ; Set success 
04 0088 20 RET 


spay 80 


Dwar 


AND PARAMETER FILE Sort 1on~360=1 386 90:1 254 yanove: as 
te Current Parameters 14-SEP-1984 16:09:11 (CBOOTS.SRC 


< -SBTTL BOOSWRICUR - Write Current Parameters 
: vance ene Description: 


ow 
n~< 
zw 
Cc 

mal 


next time the system is booted 


nein Sequence: 
#0,BOOSWRTCUR 


Input porencverss 


Output Parameters: 
RO = Completion status code 


COOCOOCOOCOCOCOSCOSCOooOooO -—m 
CoCo COCO COCO COCOCDCOCOCOCDOCECDCDCD mz 


SO*MADAMMAN—TGHAOF PODDOOVOOOOOOOOOOOONOOONO 


SOOOCOCOOOCOOCOOCOOOOCOoOO 


DUDVUDPV IV IVPVIVLUDVSULULVSUSUSVSVUSUSUSVSUSUS VSS VS ISIS ISIS 


PUPP BS BS BS BB EE AAW I III innonononononony 


BALAN 9 ODNA UE WN 9 ODNOAU EWN O ODA 


wae -PSECT PAGED_CODE rd,nowrt,exe,long 
O3FC 318 Entry BOOSWRTICUR, “M<R2,R3,R4,R5,R6,R7,RB,R9> 
00000000'8F £5 010 BBCC #EXESYV eA ge Don't do WRITE CURRENT again in startup 
00 00000000 ' GF 011 “EX AGS, ibs; 
50 QO000000'EF 9E 011 10$: MOVAB B800$GT beep RNANE RO® Get address of system .PAR file 
10 AC 80 «(9A (011 MOVZBL (RO)s TPASL STOKENENT (APD Set up for call to BOOSURTSYSPARF ILE 
14 aC 50 00 012 MOVL PASL_TORENPTR(AP) 
00000000 * GF 6C FA O12 CALLG (i) G*BOOSWRTSYSPARF ILE: Call the routine to write out the file 
OA 50 3 012 BLBC $ ; Branch if error 
OO0E 30 01 BSBW BOdSSENDOP PER : Notify operator of WRITE CURRENT 
007CA01B 01 SYSGS_WRITECUR 
03 50 8 01 BLBS 3; If LBS, success 
FEC4*' 30 013 0$: BSBW RO 308 ; Report error 
50 1 013 O$: MOVL #1,R0 3; Return success 
4 Bz RET 


Be. SRO Glee Bats ae I 


routine writes the parameters from the working parameter 
buffer to the system eer peerer file on disk. They will take effect the 


_— 


SYSGEN - SYSGEN UTILITY AND PARAMETER FILE bois 16-SEP-1984 00:13:54 VAX/VMS Macro v04-00 Pa 
v04-002 BOOSSENDOP ER = Output facility error mes 14-SEP-1 198 9: 711 taoors. sre SYSGEN.MAR; 3 at 
i 28 -SBTTL BOOSSENDOPER = Output facility error message to operator 
14 60 ; Functional Descriptio 
bi 3 : BOOSSENDOPE eutputs an error message to the operator. 
O14 8 3 canine ce Sequence 
14 64 ; BOOSSENDOPER 
B1e8 65 : «LONG <msg-id> 
14 96 
0140 67 BOOSSENDOPER: : 
OOOO26A8"EF 00 BE DO 0140 68 MOVL a(SP) ,OPERMSGID ; Put message ID in vector 
6—E 04 0 aes $2 adote #4, (SP) ; Advance return address 
14 0 SGETJPI -§ ITMLST=OPERGETJPI 3 Get Breeess | 
78 50 €9 016 71 BLBC. 1 ; 
000026A4 ‘EF 03 DO 016 278 MOVL #3. OPERMSGVEC 3 ds WRITE ACTIVE 
OOOO26AC"EF 01 DO OI96 7 MOVL #1, OPERMSGFAO 
00026B4"EF D4 01 574 CLRL OPERMSCNA 
000026A8 ‘EF 007CA01B 8F D1 Bie 3? CMPL g53'S65_URITECUR .OPERRSEID ; WRITE CURRENT ? 
2D 12 0184 76 BNEQ 5 : If NEQ, no 
000026A4 ‘EF D6 0186 orf INCL OPERMSGVEC ; Set up WRITE CURRENT 
000026AC ‘EF D6 018C 78 INCL OPERMSGF AO 
00002684 ‘EF 00002688 'EF 9E 0192 579 MOVAB tga bat OPERMSGNAM 
000026B88'EF O0000000'EF 9A 019D 580 MOVZBL RIO_INPN M+NAMSB_ RSL ,OPERNAMDESC; build descriptor 
OOOO2Z6BC"EF  OO0000000"EF DO O1A8 581 MOVL ~ [NPNAMSNAMSL™ “RSA. OPERNAMDESC +4 
0183 o8¢ 5$: sPuT MSG_S - ; Get and format message 
0183 2 1g 4 ae OA + eae 
0183 84 N=666$ 
1350 €9 OICA 585 BLBC RO,10$ ; If LBC. error 
01CD 586 SSNDOPR_S MSGBUF =OPERMSG 
0 8 01DD 587 BLBS “~RO,208 : If LBS, success 
FEID' 30 Qie9 588 10$:  BSBW PUTERROR : Report error 
50 01 DO OTE 589 MOVL #1,R0 3; Force success 
01E6 209 208: 
05 pies 91 RSB 
Bie 236 666$: 
003C 1E7 59 ~ WORD ey | as R4,R5> 
50 04 6C 7D O1E9 290 MOvVa a4 (AP t string descriptor 
OOOO26CO"EF 50 08 C1 OED 95 ADDL forth mS TEXT,RO OPERMSE: ye total operator message size 
000026D0"EF 61 50 28 O1FS 596 mMOoVC ne (RIT ,OPERMSGIXT 3; Copy text to operator message buffer 
50 D4 O1FD dA CLRL ; Prevent message output to SYSSOUTPUT 
04 OFF 98 RET 
3508 599 
0200 600 -ENDC ; End of SYSGEN-specific code 
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04-002 BOOSCONFIGALL = Auto-configure att adapt 14-SEP-1984 90 711 {BOOTS SRCISYSCEN.MAR: 3 . (4) 
0 606 «SBTTL BOOSCONFIGALL = Auto-configure all adapters 
8 £04 : Functional Description: 
0 605; BOOSCONFIGALL is called to implement the ‘‘AUTOCONFIGURE ALL" 
00 O06 3 command. ALL standard devices supported by VAX/VMS will be 
00 607 ; Located and connected for use with any necessary drivers being 
8 8 ons ; loaded. 
0 8 610 : Calling Sequence: 
0 83 61) : ALL ARGLIST,BOOSCONF IGALL 
0 + gig : Output pereneters: 
0 614; RO = Completion status code 
Hoe 
vemag 2 617 -PSECT NONPAGED_CODE rd,nowrt,exe,long 
OFFC aie oi? Entry BOOSCONFIGALL, “M<R2,R3,R4,R5,R6,R7,R8B,R9,R10,R11> ; Entry mask 
08 00000000'EF 00000000 * 8F —E1 0088 621 BBC #EXESV_NOAUTOCNE ,EXESGL_DEFFLAGS,5$; do we allow auto configure 
50 007C8002 8F D0 0097 6 § MOVL #SYSGS$_NOAUTOCNF ,RO :Give them a no autoconfigure error 
04 i943 ° ? RET ; and return 
FFSE* 30 OO9F 625 5$ BSBW BOOSLOCK_GEN ; Lock SYSGEN database 
07 50 €E8 OOA 6 $ BLBS R :; If no error, continue 
Q0000000"EF 16 OOAS 6 JSB PUTERROR 
mo fe ae 
FFS1° 30 Baat e , 7$ BSBW IOCSAUTORESET : Reset controller characters for device 
3; names 
5B D4 OOAF 633 CLRL R11 3; Indicate no ADP address yet 
58 OD 00B1 $3 10$: PUSHL R11 ; Set as argument 
0000013B°EF O01 F 0B3 634 CALLS #1,NEXTADP 3; Get next ADP address 
29 50 € OBA 635 BLBC RO, CONF IG_EXIT ; Branch if error (NOPRIV) 
58 51 00 OOBD 6 $ MOVL R1,R11 3; Check return status 
10 18 00CO 6 BGEQ © 208 : Branch if done 
58 DD 00C2 O38 PUSHL R11 : Set as ADP argument 
O18c*ce 01 FB O0C& 639 CALLS #1,W*CONFIGADP ; Configure the entire adapter 
—E5 50 €8 O00C9 640 BLBS 3; Continue if no error 
00000000'EF 16 OOCC 641 JSB PUTERROR : Report error 
50 01 00 Bap ot§ 20$: MOVL #1,R0 ; Set success 
09 00000000'EF oc «CE b0p3 644 BBC #BOOCMDSV_AUTOLOG,L“BOOSGL_CMDOPT,CONFIG_EXIT ; Branch if not /LOG 
00002614 'EF be b00p 645 CLRL  BOOSGT SAVE_DEVNAME ; Clear name 
O1A9 0 ste oe6 BSBW AUTOLOG ; Output last Line if there is one 
Bpee o68 CONF IG_EXIT: 
9 Bp E64 364 PUSHL RO ; Save status 
FFI5* 30 —8 650 BSBW 8 LOCK_GEN 3; Unlock SYSGEN database 
06 5 °° yee 651 BLBS R ; If no error, continue 
00000000" EF EE 63¢ JSB PUTERROR : Give error message 
8ED OF4 6535 358: POPL R ; Restore status 
04 4 $38 RET 3 
OFFC 3 636 Entry BOOSCONFIGONE, “M<R2,R3,R4,R5,R6,R7,RB,RI,RIO,RII> 3; Entry mask 
FFO3*° 30 OOFA 658 BSBu BOOSLOCK_GEN ; Lock SYSGEN database 
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Wol-b0e BOOSCONT 1GALL = Auto-configure all adapt 14-S Pa} 984 98 £08; :11 +(CBOOTS. sR SYSGEN.MAR; 3 (4) 
F 59 BLBS 3; If no error, continue 
oooo00ge'er ie f 666 A BUT ERROR : Give error message 
FEF6* 30 i ees 5$: BSBW IOCSAUTORESET 3 + tee +g a characters for device 
R(AP) : Set TR number of adapter 
osrar '° Of PP 190 oe2 atk: yee nant: ; Locate adapter control block 
D 5 E9 0111 ges BLBC 40 fonric EXIT 3; Branch if error (NOPRIV) 
51 DD 0114 668 PUSHL ; Set as argument to CONF IGADP 
0D 8 11 669 BEQL 10$ : Done if no adapter 
BC ‘AF eee. . 118 89 CALLS #1,B*°CONFIGADP : Configure adapter 
06 93 £8 11C gi BLBS 3; Continue if no error 
Q0000000'EF 16 O1TF 67¢ awe JS8 PUTERROR ; Give serror status we 
B6 00000090" OC p° a 3 $0 : BBC SESoCHOSY AUTOL OG, y,e0oséi EnodPT CONFIG, ekIT : Branch if not /LOG 
— Ores % 61 4 or BS Bu ithe 0 : Output last Line if there is one 
11. 0139 ei 208: BRB CONF IG_EXIT 3 
ote ore NEXTADP: 3 re =A - address in RO 
‘ ~WOR 3; Nu entry m 
se Ei re SCMEXEC_$ B*10$, (AP) ; Call real routine in exec mode 
06 Olen 688 , 
0000 014A 684 108: -WORD 0 3; Null entry mask 
51 O04 aC OD gree 685 ah scar) oat : get current gépress 
51 04 at 09 0152 e8y ROvL She Ot LIOR CRT) OA : Flink onward 
1 OOO000'EF DO 0158 689 20$: MOVL 1OCSGL_ADPLIST,R1 ; Return head of List 
’ 3 01 DO O15F 690 $8: MOVL #1,R0 
04 016 $3) RET : 
sie 6935 LOCADP: ; Return address of ADP for TR number 
WOR 3 
rt O13 $98 SCREXEC_$ B*5$, (AP) ; Call routine in exec mode 
04 pitt 2 RET 3 
0000 oi55 698 5$: -WORD 0 Nuce entry mas 
51 FRFFFFFFC'EF QE 0174 99 MOVAB IOCSGL_ADPLIST-ADPSL LINK, Ri ; Set Jeartine address 
51 O4 Al D g178 09 10$: novi Apps. CINK(R1),R1 : "FUink onward ‘ 
OC Al 04 + 4 181 , aot 4 (AP) ,ADPS$W_TR(R1) ; Is this the specified TR? 
Fs if 1 $ 7 BNEQ 10$ ‘a 3; No, try another 
50 01 OD 1 7 : 208: MOVL #1,R0 : 
04 ; ° oe RET 3 
OOFC ; ; i -Entry CONFIGADP, “M<R2,R3,R4,R5,R6,R7>; Entry mask 
° AVE eturn address for initial call 
10 OOtere Be pf 1 4 at Bbc ABOOCROSY SELECT Lepooset Embopt £108 Mutually exclusive = test 
08 00000000'EF £1 019¢ 711 BBC #BOOCMDSV EXCLUDE ,L moot, 5° : to make sure one bit clear 
50 007CBOBA BF B° ‘. ar nove #SYSGS_ CORFOGAE RO” rite qualifiers 
14 
OIFA‘CR §=6©6C)COFA 1Ae ar 10$: CALLG (AP),W*50$ ; Call configure one device 


7 
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is 
be P=1984 00:13:54 VAX/VMS Macro V04-00 Page 17 is 
you BOoseGnt ISALE = Auto-configure all adapt att bs 9b 08,31 YBooTS SRCISYSGEN.MAR: 3 (4) \ 
181 1 BLBS RO,208 ; Branch if not done with this adapter 
| vie . nH i$ CMPW e eg NOPRIV,RO ; Was there a privilege error 
34 : 187 1 BEQL 33 z ; Yes, branch 
50 ; 189 718 MOVL #1,R0 : Set success 
Be 1B Y 15$: RET 3; and return SonNgRb 
55 OQ000268C'EF 9E Hy ¢ 208 MOVAB BOOSAL_ACF,RS ; Set address of a mee er b me evice | 
| | CLRW = ACF SW_MAXUNITS(R5) ; Always use driver specified max units 
oo002400"¢F 50 17 , g MOVE “BOOSGL_SELECT,R6 ; Get pointer to select List 
15 5 $ Hh et : Ae y By 4 ARS, string 
| me 0 : 196 5 8 Bree a5 ibs : Branch if device is not to be configured 
big 580 AFLAG(RS) ,38$ ; Branch if not loading databas 
| 0000008" EF § F? O1p8 ; ; ae BBC FBODEHOSY AUT OL OG Le scOseL CMDOPT,38$'; Branch if not Logging 
| te <i gos ee Sree 7 ¢ BSBW AUTOLOG ~ 8 Branck F9 oy 
BLBS R ; Branc 
Fete 55 O1ES ¢ BSBW PUTERROR ; Give error message 
: x : database and driver if necessary 
OOOO'CF 65 FA OTEC 4 $ 38$: cA t6 ce) a IOGENSLOADER peed omit yh ad 
BB oo" bir a at BSBW PUTERROR ; Give error message 
FFB2 1 aha 44 RRw 10$ 3; continue loop 
6g, oire 83 et SCRERNL§ B“*55$, (AP) ; Call auto configure in kernel mode 
ett oe 7 
m 9,R10,R11> : 
OFFC 0209 745 558: ~WORD M<R2,R3,R4,R5,R6,R7.RB_R m - i ate eaicaall 
50 000024C4'EF 08 $508 oes av BOOSEL RE TSAVE RO Branch if one present 
: se main entry 
aot spempented 6 43 O31 ok: 60$: PUSHE peerage cen ee: ; Stack cat ro ies 
if ; 3 ess 0 : 
- $ 43 4210 30 MOVE AoPS, CER (RED R6 ; a4. Conti uration register address 
36 £2 BP BSS. 3] MOVA BOOSAL_ACF,R7_ ; Address o oe ion control block 
an ae ae 538 SETIPL #31 ~~ ; Disable interrupts 
$5 g fe $B a(SP)+ ; Call Auto Sane) er nee Ten code 
ak ae 85 b re SETIPL # : Enable i s 
0000 : rn 
ee a pe 3 738 BLBS 2G eee puns. : pet Rag another device 
oooozcerer be 5 3p at CLRL BOOSGL_RETSAVE : Else clear return 
<3 128 : h if loading database 
: NOLOAD_DB,ACFSB_AFLAG(R7) ,80$ ; Branc 
- 98 sal 03 1 0343 760 — Sev ZuL ACE Su_CUNIT CR?) "hha ; at unit number 
"108 8 pit 68 pseu" SCHSEET Urwiee LOCK 1008: Get device database 
0108 8 8 ADDL2 #8,SP ~ rf * ; Clear stack 
mm Se 6 28 765 80$: RET 2 : And return tus 
: ; Set su 
moo Be A Gym oe BES 
S52a 568 | i ice 7 i f th either 
: - hether current device name is one o ose 
0 2A : 3 : eres ode Pao g /SELECT or /EXCLUDE 
058a i) : Returns: RO = 1 ==> configure device 
| 


a 
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= Auto-configure a Be 989 711 f § rant (4 


S23 Warstsse 


oomo oomo —7m—%M—0-07g 
MmOoOofFf WN0O—F —OCOWO0O-WPFPO 


oowu" 
—NO 


POPIPOPPYPIPPYPYIPINIPYPIPIPOPPoPof~pofnonnn 


000009 090909 INI NINO O 
MmOW— O09 VW SMO 


COOOCOCGCOCOGOOCOCOCOOOOOOOOCOOCOOO 


adapt 14-SEP-19 
RO =0 ==> don't configure device 


BOOTS. SRCJSYSGEN.MAR; 3 


rove ACF SL = * horas R7 ; Get a to device name 

MOVZBL (R6)+ ; Get enesh of select M etl 

BEQL 208 3; End of no match 

CMPB ee : Compare with device entry 

BLSS 15$ 3; Branch if select Longer than device 
CMPC3) = R4, (RE), (R7) ; Do we have a matc 

BEQL © 408 : Yes, check SELECT or EXCLUDE 

ADDL R4,R6 ; Advance to next entry in select list 
BRB 10$ $ And try again 

CLRL RO ; ume_don't configure 

BBC SPODE ROSY EXCLUDE contents “CHOOT. 30$ ; Branch if SELECT 

MOVL RO XCLUDE = contigure device 

RSB 

CLRL RO ume don’t configur 

BBS + + at EXCLUDE, BOOSGL’ cHOOPT 50$ ; Branch if “EXCLUDE 

MOVL 1,R0 7 SELECT = configure device 


co 
i 
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OLOG = AUTO ALL /LOG formating 14-SEP-1984 BOOTS. sRCd SYSGEN.MAR; 3 (4) 
: 738 -SBTTL AUTOLOG = AUTO ALL /LOG ncaa? 
| 55 0n00248c"Et 4 $3 AUTOLOG BOOSAL_A Add ¢ contigurati trol block 
: ress of con ration contro oc 
| 14 AS 3 MOVL ys 5 Chane (RS), R6 ie address of current device 
57 A 9A ¢ MOVZBL ( 6)+ Get count and addr. 
| 00002614"EF 66 9 029 CMPCS 7, (R46) ,BOOSGT_SAVE pevuing®* Compare to previous string 
9 2 n Be BNEQ 50$ ; Branch if new device 
| Ay 06 SFAO_S CrastmecTasTa A AUTOLOG_UNIT ,= ; Format Unit Number 
A7 TLEN=OUTLEN_UN 
| A? 88 ay TLEN SUNT = 
03 50 fs C3 10 BLBS : Branch if OK 
0081 1 8 1) BRwW + Branch if error 
2610°CF 60C CF co c9 ig 40$: ADDL W*OUTLEN_UNIT,W*OUTLEN ; Add to total length 
e3 BH 60C "CF C + 14 ADOL WROUTLEN_UNIT .WSOUTBUF +4; Add to descriptor 
628‘ CF 6OC'CF A 8 D 15 SUBW W*OUTLEN_UNIT,W*QUTBUF ; Subtract from Length 
6A 1 0 43 51§ BEE 100$ ; Return with success 
2610°CF 8 02€0 Hf 50S: TSTL W*OUTLEN 3; Is this a first call to this routine? 
21 1 Ogee th BEQL 70$ :; Branch if yes 
262C ‘CF 630'CF 43 O3e6 ese MOVAL W*OUTBUF_STR,W*OUTBUF+4 ; reset descriptor 
0000° CF 610'CF 8 O2ED ¢ MOVW W*OUTLEN, “weRioscu_ OUTLEN. ; Length of string 
Roce 8 O2F4 MovCc3 y’RiO$Gu uO 
$8 O'CF 8 F8 4 w*OUTBUF ; 
00°C 0 FB 825 W*RIOSAB asta : Move text into global buffer 
"EF 16 O2FE HH JSB RIOSOUTPUT_LINE 
99 0 €9 Bans 33 BLBC RO, 100$ 3 Branch on error 
2628' CF 0064 8F B0 o307 HE 70$: MOVW £09 w*OuUTB Se t full buffer length 
00002614"EF 66 $e O30E 831 MovCc3 7 (RO), SonsGT _SAVE ADEVNAME Save new devname 
55 0000248C "EF — 0316 S36 MOVAB OAOeR Z et RS 
0310 HE $FAO_S CTRETRE CTRSTR -AUTOLOG,= ; lorant device name 
031D $0 OUTBUF =OUTBUF >= 
B3i8 4 5 OUTLEN=OUTLEN 
0310 $$ PI=ACFSL ~DEVNAME (RS) ,~ : 
Baye 83 P2= ACF Sw_ CUNIT(RS) 
262C°CF 2610°CF co $25 838 ADDL W*OUTLEN, W“OUTBUF +4 ; Add to descriptor 
2628'°CF 2610°CF A2 034 839 SUBW W*OUTLEN, W*OUTBUF : Subtract from Length 
Been a9 ; Return with FAO status 
05 4A 41 100$: RSB 
0348 842 


ee 


——_——_ 
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= SYSGEN UTILITY AND PARAMETER FILE EDIT 16-SEP-1984 
SGNSGET DEVIC tabese| aes 


007C 8F 


54 00000000' GF 
32 


007C 8F 


007C 8F 


00000000 ° GF 
eemeaeedl 1 


54 


54 00000000° GF 
00000000 * GF 


5.00 09 09 09 09 09 00 SIN NIAAA A MMIII 
KOM +S S OVI OWVMOM OO —$ FTO TT F@OOoo"™™w® 


96 


SOOOSOSOSOOOCOCSOOOSOOOCCOOCOCOOOOOCOOOOOOOOOOOoOOoOO 


AWAWALA AINA. AI. AAAI AAAI ANNAN AAAI AAAI AAAI AIA 


+©.09.09.09 00 09 Gd 9 Cd Gd Cd G9 GD 09 0D G0 Cd Od Cd OD Cd OD Od OD CD OD CD Cd OD CD GD OD GD OD CD CD OD OD: 


FW O ODNOAUN EW" OOONOAUE 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
oO 
nn 
a 


et A ee ee ee eee at Le 5 te 


DOO O OOO OW 90909090 SIN NS NINN NNO OO 
NOUS WN 


ooo 
owe 


o 
SOON UNE WIN 0 OONOAUE WN" O OOwe 


= Locate device database 14-SEP-1984 


-SBTTL SGNSGET_DEVICE = Locate device database 


: Inputs: . 
= Unit num 
Outputs: 


ddress Device name in ascic format 
er 


0:13:54 AX/VMS # v04-00 
6:09:11 f tisy 4 


Pa 20 
BOOTS. SRCISYSGEN.MAR: 3 - 


—_ 


(Any of gSeee are 0 A A ens block doesn't exist) 
° 


>>> 
Oocn 
i De De] 
bad 
a 
lel ol 
- 
° 
@ 
pees 


ACFSGL"SB - A 
ACFSGL_LASTDDB 
otherwise, last 
RO = 0 - error 

= 1 = success 


dd 


Must be called at IPL=0 and KERNEL mode 


-ENABL LSB 
SGNSGET_DEVICE:: 
PUSHR #°M<R2,R3,R4,R5,RO> 
MOVL  G*CTLSGL_PCB.R4 
BSBBStséd«COS: 
POPR #*M<R2,R3,R4,R5,R6> 
RSB 
SGNSGET_DEVICE_LOCK_10DB: 
PUSHR #*M<R2,R3,R4,R5,R6> 
MOVL  G*CTLSGL_PCB,R4 
J$B G*SCHSIOCOCKR 
BSBBOtié«éd‘@OS 
PUSHL RO 
VL G*CTLSGL_PCB,R4 
JSB G*SCHS$IOONLOCK 
SETIPL #0 
POPL RO 
POPR #*M<R2,R3,R4,R5,R6> 
RSB 
108: CLRL W*ACFSGL_DDB 
CLRL = W*ACFSGL~UCB 
CLRL = WACFSGL1DB 
CLRL = W*ACFS$GL~CRB 
CLRL = WS ACF $GL7SB 
SAVIPL =(SP) 
VL 32¢SP),R6 


ress of SB 
- If ACFSGL_DD 


B is non-zero 
DDB in DEVLIST 


; ADDS 20 to offset to input 


; PICK UP PCB POINTER 
; Call real routine 


; restore regs 
; Return 


; Entry without IODB MUTEX and IPL 0 
ADDS 20 to offset to inoui 


s:PICK_UP PCB POINTER 
GET THE IODB MUTEX FOR READ & RAISE IPL 


SAVE RETURN STATUS 
:PICK UP PCB POINTER 
sRELEASE THE IODB MUTEX 
LOWER IPL 


RESTORE RETURN STATUS FROM LOCAL ROUTINE 


then equal to that, 
; Entry with IODB MUTEX & raised IPL 
| 
| 


— ——— 


| : a 
SYSGEN SYSGEN UTILITY AND PARAMETER FILE EDIT 16-SEP-1984 00:13:54 VAX/VMS Macro v04-00 Page 21 
Yoesb0e SGNSG GET_DEVICE = Locate device database 14-SEP- Pa} 984 93508511 feoors sre SYSGEN.MAR; 3 (4) 
55 $ 9A AS 901 MOVZBL (R6)¢ RS 3GET SIZE OF DEVICE NAME 
D O3A 3 i mova = (§P) [FORM DESCRIPTOR 
5 —E 00 O3aB MOVL 83 "R TADDRESS OF DESCRIPTOR 
00000000'GF 16 O3AE 904 JSB G* LOCSSEARCHALL ‘SEARCH FOR DEVICE 
8E 7C 0384 905 CLRO [GET RID OF TRASH 
B6 206 SETIPL GP) SRESTORE OLD IPL 
2418'CF 53 pg B9 90 MOVL  R3,W*ACFSGL_SB [STUFF THE SYSTEM BLOCK 
sy BE 908 BNEQ 20$ :NO ERROR, CONTI 
50 D4 03C0 909 CLAL S INDICATE ERROR 
SE 11 0 ce 310 BRB Os TEXIT 
08 50 'Z:) 0 C4 316 20$: ®BLBS  R0,25$ sSUCCES = FOUND DEVICE 
0908 8F 650~—soa1 (7 91 CMP =——- RO. #SS$_NOSUCHDEV [CHECK IF ERROR WAS "UNIT NOT FOUND" 
36 if O3CC 39914 BNEQ 60§ ‘IF NOT, PUNT 
51 DS «O3CE 80915 TSTL = R11 [SEE IF WE GOT BACK A UCB ADDRESS 
33 12 0300 316 BNEQ 60% :1F NON-ZERO, 1S LISTHEAD = NO DDB FOUND 
00002400'EF DO 03D2 917 25$:  MOVL i R2,L*ACFSGL_DDB TADDRESS OF ODB 
54 04 Ae 00 0309 918 MOVL DDBSL_UCB(R2) ,R4 ?GET ADDRESS OF FIRST UCB . 
25 13 O3DD 919 BEQL 60% [IF NO UCB, EXIT WITH OTHER FIELDS Zt7~ 
51 26 Aa DO O3DF 320 MOVL  UCBSL_CRB(R4),R1 [GET ADDR OF CRB 
0000240c'EF 51 DO O3E3 921 MOVL R1,L*ACFSGL_CRB SAV 
2408'CF 2C Al D0 O3EA 92¢ MOVL  CRBSL_ INTDSVECSL.. 1DB(R1),W*ACFSGL_IDB ;GET ADDR OF IDB 
54 AG 20 AE Bl 03FO 924 30$:  CMPW  32(SP),UCBSW_UNIT(R4) ;1S UCB ALREADY LOADED? 
08 13 O3F5 925 BEQL ‘BRANCH IF IT IS 
54 30 A4 DO O3F? 926 40$: MOVL UCBSL_LINK(R4) ,R4 [GET ADDR OF NEXT UCB 
F312 «4O3FB «(927 BNEQ 0$ 'BR IF THERE IS ONE 
0 11 O3FD 928 BRB 60$ TEXIT WITH UCB = 
2406°CF 54 DO O3FF 385 50$:  MOVL R4,W*ACFSGL xu68 
00002410°EF 52 DO 04046 931 60$:  MOVL  R2.ACFSGL_LASTDDB ZLAST DDB IN LIST AS SEARCHED 
50 O0000000°GF DE 0408 93¢ MOVAL OA eC SSCA merit y RO [GET ADDRESS OF LOCAL SYSTEM BLOCK 
50 53 01 O4i2 93 CMPL  —s—R3, RO tIS THIS $B LOCAL 
08 13 041 934 BEQL it TYES, LEAVE NOW 
18 A3) 7D «(0417~—s«935 MOVO SB$B_SYSTEMID(R3),- 
0000244¢ "EF O41, 936 L*BOO$GQ_CONSYSID :NO, SET IN THE SYSTEM ID 
50 01 DO O41F 938 65$:  MOVL  #1,RO s SUCCESS 
05 0422 939 70$:  RSB 
0423 940 
0423 941 .DSABL LSB 
0423 942 


OO00245C"EF  —00000200°EF 
O002428'EF 01 

0000245C "EF 8 

00002434 'EF 1 
Q0002438°EF 01 
00002424"EF 02 
00002440'EF 

00002444 'EF 

00002448'EF 

0000244C'EF 

00002’ 58° EF 

00002430°EF 01 
0000241C'EF 

00002420'EF 

00002460'EF 

O000245C"EF 00000200'EF 
00002614 °EF 

0002610°EF 

0000262C"EF  00002630'EF 
00002497'EF 

000024350°EF 01 

FFSF CF 00 

50.0084 8F 

eeeeneade | 

50 02C4 BF 

03 00 02 

G0000000" = 

00002444°GF 000025EC* f 
000025BC * GF ooo0g sec "rt 
0 01 


G 
= SYSGEN UTILITY AND PARAMETER FILE 


7 
DIT 16-SEP-1984 


Reset routines BOOSRESETLIST and BOOSCON 14-SEP-1984 


4 944 


AX/VMS mag ro V04-00 Page 22 
BOOTS. sRCS SYSGEN.MAR; 3 (4) 


-SBTTL Reset routines BOOSRESETLIST and BOOSCONRESET and BOOSMSCP_RESET 


4 945; 
rs 8¢9 3; BOOSCONRESET - Reset values for connect command 
4 948 * 
00000200 9¢8 -PSECT PAGED_CODE rd,nowrt,exe, long 
0000 o 3 32) «Entry BOOSCONRESET, “M<> 3; Null entry mask 
9E 020 388 MOVAB L*“BOOSAB_PRMBUF ,BOOSGL exsie 3 Reset for — allocation 
CE 0200 954 MNEGL #1.B008 C_CONCREG NuLl control regist 
cE 8 14 955 MNEGL 1,B00$GL_CONAUNIT + Null ny ong unit 
cE 8 328 MNEGL 1,BOO$GL_CONVECT : Null vector 
DO 02 95 MOVL #1 ,BOOSGL_CONNUMV ; Default number of vectors 
CE 0229 958 MNEGL #2,B00$GL_CONADP ; Invalidate adapter TR value 
D4 0230 959 CLRL BOOSGL_CONDEV : Clear device name pointer 
D4 0236 960 CLRL BOOSGL_CONDRV : and driver name pointer 
D4 0235C 961 CLRL BOOSGL_CONUNITS ; and maximum units 
7C oSeg 96 CLRQ BO0$GQ_CONSYSID : and — id 
D4 0248 96 CLRL BOOSGL 8 eters : and f ee a 
dO osee 964 MOVL #1,.°B8 are Set er of units to 1 
D4 025 965 CLRL Boose CORSO. VECTOR_OFF Fsét; Set vector offset from combo vectors to 
D4 0258 966 CLRL BOOSGL— COMBO_ CSR_OF FFSET ; Set CSR offset from combo CSR to 0 
04 0261 967 RET ; Return 
026 968 ; a 
ps6 34 : BOOSRESETLIST = Reset select list values 
0000 osee 44. «Entry BOOSRESETLIST, “M<> ; Null entry mask 
D4 0264 378 CLRL BOOSGL_SELECT : Zap select List pointer 
9E 026A 974 MOVAB BOO$SAB~PRMBUF ,BOOSGL -NEXTSTR Set next string address 
D4 0275 975 CLRL BOO$GT" SAVE _DEV NAME Clear autolog strin 
D4 0278 976 CLRL OUTLEN™ : Clear dress output size 
DE 0281 977 MOVAL OUTBUF_STR,OUTBUF +4 ; Set address n descriptor of block 
94 O028C 978 LRB BOOSAL~ACF+ACF$B_AFLAG : Clear ACF flags 
DO 0292 979 MOVL #1,L°BOOSGL_CONNOMU 3; Set number al units to 1 
04 0299 980 ET : and return 
bsoA 981 
029A 982 estes 
5334 One 3; BOOSMSCP_RESET - Reset the MSCP server initialization argument List 
903C 0994 +4 Entry BOOSMSCP_RESET, “M<R2,R3,R4,R5> ; Entry mask 
FB 8 9C $87 CALLS #0,c00SCONRESET ; Reset the connect command globals 
3C 02A1 988 MOVZWL ass eDEVOFFLINE. RO > Assume error 
DS O2A6 989 TSTL CS$GL_CDL : SCS loaded? 
13 8 AC 990 BEQL Soe. : If eql no, error 
3¢ a 994 MOVZWL 6356 DEVACTIVE. RO : Assume error 
re 028 99 INSV : Set E class error status 
D5 0288 99 TSTL GSts$6L. “MSCP ; If neq already loaded 
12 8 a} 994 BNEQ 10$ Exit with error 
DE C 995 MOVA MSCP_NAME, Ths tf, CONDRV; auet pointer to MSCP server name 
28 cB O99 MOVC Basch ARG n. default argument List for 
CD 99 MSCP_ARG Scist. g*B00$GL bad’ Ante: ASCP server init routine 
dO D 998 MOVL at. RO ét success 
04 DA 999 10S: RET : and return 
0208 1000 


--——— = - - — — — 


? 
| Stpe = SYSGEN UTILITY AND PARAMETER FILE DIT 16-SEP-1984 00:13:54 YAX/VMS Macro v04-00 P 3 
de-602 Reset routines BOOSRESETLIST and BOOSCON 1738-1 98¢ 98: 0:71 LBOOTS. SRCISYSCEN.MAR; 3 aa ay 


DB 01 ; 
DB 3 ; BOOSMSCP_ARG = Load MSCP arguments 


1001 
Ht 
DB 1003 ; 
0000 8 8 -Entry BOOSMSCP_ARG, “M<> ; Entry mask 
50 20 AC 00 DD 1906 MOVL TPASL oeestas RO ; Get longword offset 
1c AC 00 E1 100 MOVL hd UMBER (AP ; Load argument value 
000025BC 'GF40 E4 1008 BOOSGL LOAD “ARGSCRO] ; 
50 01 00 EA 1009 MOVL $1 PRO ; Set success 
04 ED 1010 RET 3 and return 
EE 1011 
ee 1 1¢ 3 ; 
EE 101 : 
43 It 3 ; BOOSMAKLIST - Make a select List entry 
HA 1318 -Entry BOOSMAKLIST, “M<R2,R3,R4,R5,R6> ; Entry mask 
56 0000245C¢ Fe 1018 MOVL L“BOOSGL_NEXTSTR,R6 ; Get pointer to next available suring space 
00002460 f 1019 TSTL L“BOOSGL-SELECT : Is selection pointer already set 
FD 1930 BNEQ : Yes, continue to add entry 
00002460'EF FF 1021 MOVL R6,L°BOOSGL SELECT ; Else set pointer to first select entry 
50 06 19¢¢ 10$: MOVL TPASL_TOKENCNT (AP) ,RO ; Get string Length 
30A 10 MOVB RO (RE) s Set count for string 
66 14 BC 30D 1024 mMovC3 RO, @TPASL_TOKENPTR(AP), (R6) :; Copy string body 
312 1025 CLRB (R3) ; Mark end of List 
0000245C EF DO 0314 1026 MOVL Ree L“BOOSGL_NEXTSTR 3; Save next strin address 
DO 031B 1027 MOVL #1 *R ; Set success status 
04 O31E 1028 RET 3 


co 
o 
— 
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TY AND PARAMETER FILE EDIT 16-SEP-1984 00:13:54 VAX/VMS Ma v04-00 a 4 
t connect adapter number 1o-3E b=} 382 6:09:11 EBOOTs SRCISTSCEN.MAR; 3 a qt) 


-SBTTL BOOSCONADP = Set connect adapter number 


| 
| 
| 
-Entr er 
00002424'EF 1C AC : PPASL "NUMBER (AP) , L*soosct_ CONADP ; Set adapter number 
REY 3 and ret urn 
00002424'EF 01 
1C AC 
0000241C "EF 


Entry posto seP “M<> : Connect with null adapter 
MNEGL #1,L*BOOSGL_CONADP 3; Clear adapter number 
RET 3; and return 
Entry leant 5 AE onties 3; Offset from start of combo vectors 
MOVL TPASL_NUMBER(A Set offset value 
L “BOOSGL _COMBO_ PYECTOR oF F set 
3 AF return 
Entry pooetont seer eet + ae ; Offset from start of combo CSRs 
1C AC MOVL TPASL NUMBER Set offset value 
00002420'EF L“BOOSGL_ COMBO. tr _oresel 
RET ; andj return 
«Entry BOOSCONCREG, “M<> ontrol register address 
00002428'EF 1c AC) «60DCOOO exicy #0,#13, TPASL NUMBER (AP), i-sooset _contres: Set control register 
RET 3; and return 
-Entry BOOSCONCVEC, Set controller vect 
1C AC FFFFFEO3 8F BICL3 yeSerRF EOS, TPASL _NUMBER‘AP) , * SBo0SeL “CONVECT. ; Set vector offset 
00002434'EF 
RET 3 and return 
Entry sagaag “M<> umber of vectors 


TPASL_NUMBER(AP) , L “Boost _ CONNUMV’s Set number of vectors 
3 and return 


-Entry gama 139 “M<> Adapter unit number 
TPASL _NUMBER(AP), L*Boosci _CONAUNIT; Set adapter unit number 
3” and return 
-Entry BOOSCONDRVNAM, “M<R2,R3,R4,R5,R6> ; Entry mask (R2-R6) 


MOVL Looe NETS Tt oR6 ; Address of next string storage 


00002438"EF 1C AC 


QOO0243C"EF 1C AC 


56 = 0000245C EF 


a ee ee 
COOOCOCOOCOCOOCOCOCOCOCOCOCOOOSOOOOOOOOOOSSOO OOOO OOCOCOCOCOCOOOOCOOOOOOOOOOOOO 
PEA 9 ODN NE WIN OOD NAUES WN" OOONA NEW" OOONOAU EWN — OUOONOU SW —O 


00002444'EF 6 MOVL R6 $GL_CONDRV 3; Save gateter to driver name 
AC MOVB TPASL_ TOKENCNT CAP) (R6)+ Set count for {string 
O000245C°EF 56 10 AC ADDL TPASL_TOKENCNT (AP) R6,BO0$GL EXTSTR ; vect ring allocated 
66 14 BC 10 AC MOVC yeaa TOKENCNT (AP), »@TPASL_ Oe TRtAPS .< Copy string 
01 MOVL ; “and return rel 
RET ; 
-Entry BOOSDEVNAME, “M<R2,R3,R4,R5,R6,R7> ; Device name/unit 
56 0000245C°EF MOVL rt tag NEXTSTR,R6 . Get pointer to next available string 
4 14 AC MOVL L_TOKENPTR(AP) .R4 ; Get pointer to strin 
3 18 AC MOVL att: TOKENCNT (AP) ,R3 : And number of characters 
00002588 EF CLRL FULL_RAME_PT : Initialize tut l device name 
? MOVAB (R6),R7 ~ : pove pointe al 
64 3 4 LOCC #°A/$7,R3,(R4) : Find any possible $ 
§ BEQL : None, just continue 
00002588 'EF MOVL R7,FULL_NAME_PTR ; Store pointer 


— 


| -o 
“SEP=-1984 00:13:54 VAX/VMS Macro v04-00 Page 25 
SOSSEN, BOOSCONADP = "Set connect odaprer number Incsepeiope Soxdar7 LamOves smeseesteN coR:3 ta) 
; Number of characters in node 
| 3 88 39 §? cP : 5 hh eae ; Set in size (incl ‘'$'") 
vr ae: a | fee fart ert 
gt ; 0 D9 : 83 Rowe’ R Sa : Save ending address 
| ' é DC 1091 POPR #°A<RO,RI> ; Restore registers 
53 50 63 ee Df 1938 SUBL #1,RO,R3 3 panes a”, left 
: nter 
me Be SF f 1992 8$: MOAB tr Te eRS 3 Seve pointer to count byte 
™ Q f 33 1095 CLRB (R5) * : Initialize count to zero 
$3 3 5 34 1036 CLRL R2 3 pars te. ioe ae eeeunheoer ee 
: 3; Get a charac 
3 85 3 F 1998 pe CReeee m0 #07 : And check tor a digit 
: Branc 
39 35 94 5 f 1400 it RO a4/9/ : AE sas for digit 
ef Mi gare 1102 208: SbuBe nO (R6)+ : Part of device name 
at tae 1108 ; INCB (R5) 3; Increase count 
gs be perp 1104 INCB (R7) : Including nodename 
gS gf Pe S201 1105 poeets 63,108 ; Continue 
ae OA tOe TOS : Get another digit 
35 85} bc09 108 cos; SuBreY gtAyO7 "RO 1 det voles mia 
33 dn ce beor 1109 : MULL #10,R2- ; Scale accumulator before adding digit 
50 $5 BY be9 WW euee Sn : check {9 ~- waa 
: r not 
eRe ie 6s mt PaAcer. 
= g F8 Sti8 W144 SOBGTR age $ ; Continue for entire unit number 
. wl et belt 148 50$: MOVL R46, BOOSGL_NEXTSTR ; Save updated string pointer 
Boosese'Er 83 (BO 5 111 j MOVL R2,BOOSGL —CONCUNIT ; Set unit number ; 
90000686 "EE 33 4 be A Hig MOVL Re BOOSGL-CONAUNIT 3 a ome nelly on me Bags, 
eocommrieendhin: s 4 $e ; 1119 TST6 OE eee seamag : must not be null device name 
3 or so 
tb Be c 1 ° AovE ots Ro 3 on success 
vo ty 8? et 1 RET ’ 3; and return : 
50 D4 0440 11 § 60$: CLRL : Return error status 
04 ie 1 : RET : : 
« : imun units to be connecte 
0000 044 11 «Entry BOOSCONUNITS, “M<> a : ry Sas Sas tien tman anki 
00002448'EF 1C AC 4 ret i MOVL TPASL_NUMBER (AP) ,L went go ye 
ret ae - ; System ID 
0000 O044E 1150 .Entry BOOSCONSYSID LOW, “M<> . : Sy 
wepcesetn tei ee he _ is Maly he F ; Set System ID (low longword) 
04 re i § RET = : and return 
a3 tae a ; System ID 
00 59 1135 .Entry BOOSCONSYSID_HIGH, “M<> . : Sy 
vernal = 00 ae i} $ —_ TeASE MUMER CAPD 2 : Set System ID (high lLongword) 
04 te i 3 RET 54 3 and return 
0000 os 1140 Entry BOOSCONSOLE, “M<> 3; Connect console block stor. device 
00002424"EF 01 CE 0466 1142 MNEGL #1,L*BOOSGL_CONADP ; No adapter 


eS 
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TY AND PARAMETER FILE EDIT 


_SYSGEN - SYSGEN UTILI 6-SEP- 1984 00: 43:5 VAX/ vis Macro v04-00 Page 26 
v04-002 BOOSCONADP = Set connect adapter number 14-SEP-1984 YRoors: SRCJSYSGEN.MAR; 3 (4) 
Tae tS C*EF 1 be 46D 1143 MOVL Hits OGL .CONAUNIT Set ee unit = 1 (not used) 
"EF 1 p 474 144 MOVL bt L GONCUNIT 
00002440' FF : 024D6'EF F 4 2 14 MOVAB Ht ME ,C“BOOSGL_CON wokyee : et device name pointer 
0002 F 2 dd 04 146 MOVL at L_CONNUMV- =; Set 2 vectors 
O9o0e628°EF D4 O4BD 114 eREL60 CORCREG i No control register 
0002430'EF 1 D6 4 1148 MOVL 4 oP SBOOSGL,. CONN ; Set number of units to 1 
0002448'EF 2 0 49A 114 MOVL #2.L“BOOS$GL CON UNITS : Set max units to 2 (OPAO is Ist unit) 
00000000" EF i 4A 1130 JB IOGENSCON NSOLE : Do cpu dependent stuff 
04 O4AA 1152 RET 


—_—__——__---—-——- eee - 


We : 
EN = SYSGEN UTILITY AND PARAMETER FILE EDIT 16-SEP-1984 00:13:54 VAX/VMS Macro v04-00 Pa 27 
002 BOOSCONNECT = Connnect specified device 1e-SEP =| ok 16:09:11 teoots, sre SYSGEN.MAR; 3 - (4) 
ra ie ¢ ; ~SBTTL BOOSCONNECT = Connnect specified device and load driver 
4AB 11 § ; BOOSCONNECT = Allows a singe device to be introduced, appropriate data 
4AB 1157: structures allocated and initialized, the driver loaded if 
re | 1128 ; required and the controller and device initialized. 
OFFC 4AB 1160 ‘Entry BOOSCONNECT, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> : 
FBSO" 30 O4AD 1196 BSBW BOOS. OCK GEN : Lock SYSGEN database 
7F 50 =€9 0480 116 BLBC RO, 70$ : If error, exit 
4B3 1164 
483 1165 ; 
4 1389 ; Value of BOOSGL_CONADP 
4B3 1168 ; 0 or greater => /ADADPTER=n specified 
0483 1169 ; -1 => /NOADAPTER specified 
483 1170; -2 => not specified 
483 1171; 
048 1106 
00002424°EF D5 0483 1173 5$: TSTL L“BOOSGL_CONADP ; Has an adapter been specified? 
44 18 0489 1174 BGEQ 3 so, branch 
00002424'EF FFFFFFFF 8F Di 0488 1175 CMPL #-1,L*BOOSGL_CONADP ; Null adapter? 
13° 04€6 1176 BEQL ; Branch if yes 
00002424 EF FFFFFFFE 8F D1 O4C 1177 CMPL #-2,L“BOOSGL_CONADP 3; None specified in CONNECT? 
09 13 0405 1178 BEQL ? ; Figure it out from the database 
50 007C80D2 8F DO 04D5 1179 MOVL #SYSG$_NOADAPTER,RO ; Set no adapter specified error 
| Oe pepe 1339 BRB 60$ 3 exi 
O4DE 1186 7$: SCMKRNL_S W*CONN_ADAP ; Get adapter number from 1/0 database 
35 30 E9 O4EB 118 BLBC RO,608 ; Exit with error 
C 11 Oero BY #3 RB 5$ ; Dispatch now on adapter type 
O4FO 1186 108: SCMKRNL_S W* CONNLADP 3; Change mode to see data base 
OD 11 nore a 4 BRB 30$ 3; Continue 
O4FF 1189 208: SCMKRNL_S W* CONNECT ; Change mode to see data base 
ge 50 €9 050C 1190 30$: BLBC RO,40$ ; Error occured : 
00000000'EF 000024 “Ef FA 090F 1191 CALLG L*BOOSAL_ACF,IOGENSLOADER ; Load database and driver 
03 50 Eg S1A 1198 BLBS RO, 50$ ; Branch if success 
FAEQ* 51D 1193 40$: BSBW PUTERROR : Give error message 
50 01 00 QO5 1194 50$: MOVL #1,R0 3; Set success for parser 
50 D 05 1195 60$: PUSHL ; Save error status 
FADS’ 30 05 Bb BSBW §BOOSUNLOCK_GEN 3 Unlock SYSGEN database 
03 5 33 : 8 119 BLBS ; If no error, continue 
FAD2" 1198 BSBW PUTERROR ; Give error message 
50 8E ? : : 1333 65$: a RO : Restore status 
FACB’ 5 ¢ 1201 70$: BSBW PUTERROR : Give error message 
a ad 7 
5 1 be : Local routine to get aceoter number from 1/0 database 
536 1205 ; Must be called by a CMKRNL since SGNSGET_DEVICE must be called 
: ° : $ : in Kernel mode. 
0000 3 § ‘Entry CONN_ADAP, “M<> 
7E 0000242c°EF 3C O05 1210 MOVZWL L“BOOSGL_CONCUNIT,-(SP) ; Unit number 


SSS SSS SSS SSS SSS 
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Y AND PARAMETER FILE EDIT 


= SYSGEN UTILIT 16-SEP-1 0:13:54 VAX/VMS Macro v04-00 Pa 28 
BOOSCONNECT = Connnect specified device 14-SEP-19 382 6: tte 211 feoots: SRCISYSGEN-MAR; 3 “= (4) 
00002440'°EF DD 3F 61211 PUSHL L*BOO$GL_CONDEV ; Device name 
00000380 Ft 18 art 1 \¢ JSB Sonbcer BEVICE_LOCK_ 10DB: Get device data base addresses 
E 8 ¢C 278 : \3 ADDL2 :; Pop off input parameters 
50 See 0 335 13 wovl “ACFS$GL_1DB,RO ; address of 1D 1D8 
: Error ze 
50 007C80D2 BF ; 1 13 MOVL air ; Set no adapter specified error 
18 2 ! 13 BRB : Branch to exit 
woncases "er 01 C¢ 28 1220 5$: MNEGL bet: CONADP 3; Assume null adapter 
0 14A0 DO 0567 1221 MOVL 1b L_ADP(RO) ,RO ; Address of ADP block 
i 1 268 1 ¢ BEQL Null adapter if zero 
00002424°EF OC A 3¢ $78 : ; MOVZWL ADPSW. TR(RO) ,L“BOOSGL_ COMADP ;Set adapter number 
50 01 00 0575 1225 10$: MOVL #1,R0 ; Set success 
04 Bare : § 208: RET ; Return 


ae 


N 7 
| SSeen - SYSGEN UTILITY AND PARAMETER FILE EDIT 19360-1386 90: 13:94 yealyes Recce v04-00 Page 29 
| V04-002 BOOSCONNECT = Connnect specified device 14-SEP-1984 16:09:11 ([BOOTS.SRCJSYSGEN.MAR; 3 (4) 
79 1229 .ENABL LSB 
f | » ; Connect with null adapter 
OFFC af ! § «Entry CONNLADP, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
50 Q0002588'EF 0D 0378 1234 MOVL b FULL NAME _PTR RO ; Try full device name 
1 5 1235 BNEQ $ 3; Good, continue 
50 Q0002440°EF OD 384 1236 MOVL L“BOOSGL_CONDEV,RO 3; Use normal name 
SA 0000248C'EF 9E 0588 1237 5S: MOVAB L*BOOSAL“ACF,R10 : Address ACF 
6A 4 392 1238 CLRL ACF $L_ADAPTER(R10) ; Set no adapter 
04 AA D4 0594 1239 CLRL ACFSL_CONF IGREG(R10) ; Set address of config reg 
08 AA B4 B28, 1240 CLRW ACFS$W_AVECTOR(R10) ; Set SCB offset for adapter 
01 E1 S9A 1241 BB #ACFSOU_CRB - ; Br. if CRB built flag is clear 
4C 00002458'EF 059¢ 1 4g BOO$GL ~CONFLAGS,17$ 
6A 00002454'EF 00 O3h6 124 MOVL BOO$GL ~CONCRB,ACFS$L_ADAPTER(R10) 3; Store CRB address 
43. 11 te : rf: BRB 17$ ; Join common code 
OFFC p2Ae 1346 Entry CONNECT, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 3 
5B FFFFFFFC'GF 9€ OSAD 1248 MOVAB G“IOCSGL_ADPLIST-ADPSL_LINK,R11 ; Get address of adapter List 
5B 04 AB DO 0584 1249 108: MOVL ADPSL_LINK(R11),R11 : Flink onward through adapter List 
12 0588 1250 BNEQ 15$ : Continue if another adapter 
50 O0O7C80BA 8F 00 O5SBA 1251 MOVL #SYSG$_INVADAP .RO ; Set invalid adapter error 
04 B20) 1626 RET 3; Return 
00002424'EF oc eB 8} 033 \$28 15$: a Se oer ee ee ee on ns the specified TR? 
SA 0000248C'EF 9E O5CC 1586 MOVAB L“BOOSAL_ACF,R10 : Get address of ACF 
6A 5B 00 05D3 1630 MOVL R11,ACFS$C_ADAPTER(R10) ; Set address of ADP 
04 AA 68 33 0506 1258 MOVL ADP$L CSRTR11) ,ACF $L_CONF IGREG(R10) ; Set address of config reg 
50 1C AB Q0000000'GF C3 O5SDA 1259 SUBL3 G*EXESGL_SCB, = ; Calculate offset into SCB of 
05E3 1590 ADP$L_AVECTOR(R11),RO ; adapter's interrupt vectors. 
08 AA 50 BO OS5E3 1261 MOVW RO,ACFSY_AVECTOR(RI0) ; Store offset in ACF. 
50 00002440°EF D0 O05E7 1966 MOVL L*BOO$GL~CONDEV,RO 3; Device name 
pte 1562 17$: 
14 AA 00002440°EF 00 Oeee 1902 : MOVL BOOSGL_CONDEV,ACFSL_DEVNAME(R10); Set pointer to device name 
O5F6 1569 ; Now try to get driver name from DDB if it exists and load B00$GQ_CONSYSID 
Bake 1998 3; if HSC device. 
7E 0000242C* 6 ze g2e8 ! 4 td gg L“BOOSGL_CONCUNIT,-(SP) : a ae 
OOOOO35D"EF 1 SFF 1 % JSB SGNSGET DEVICE LOCK, 1008; Get device data base addresses 
% 5 (8 0605 127 ADDL2 #8,SP : rop off input parameters 
08 50 «6©E€8 «60608 «(1274 LBS 0,208 ; ALL okay s - 
50 007€9010 BF 00 8 1275 MOVL #SYSG$_NODEV,RO ; Set error code - ‘Device not known 
04 Oe : 6 RET ; Leave 
1 1278 208: BBSS #ACFSV_GETDONE ,- 
00 00002458"¢r 2 aei3 : hi : L“BOOSGL_CONFLAGS,21$ ; Notify LOADER that GET was done 
18 AA 00002444°EF 00 0618 1281 218: MOVL ROOSGL CONDRV,ACFSL_DRVNAME(R10); And driver name_ 
14 06 ; 1 ¢ BGTR | ar, : Branch if driver specified 
51 00002400'EF 6 1 MOVL ACFSGL_DDB,R1 ; DDB address 
¢ 8 ce Se BEQL > Branch if none 
18 AA 26 Al DE 62E 1285 MOVAL DDBST_DRVNAME (R1) , ACF SL_DRVNAME (R10) ; Address from DDB 
| 
} 


B 8 
N = SYSGEN UTILITY AND PARAMETER FILE EDIT 19n 360-1388 90: 13:34 ott ong Rage v04-00 Page 30 
BOOSCONNECT = Connnect specified device 14-SEP-1984 16:09:11 BOOTS. SRCISYSGEN.MAR; 3 (4) 
i, fe. $ } e? BRB 308 ; Branch around name hackery 
56 Th oe 4 6 1 3 258: MOVL L“BOOSGL_NEXTSTR,R6 :; Get address of next free space 
18 AA 0 6 128 MOVL SA a tabetha ; Set as driver name address 
$6 90 0640 1290 MOVB #8, (R6)+ ; Set count for string 
66 52455649 S244 020 8F 7D 0643 1291 MOVQ #*A/ DRIVER/ (RG) : Set driver suffix 
1 16 AA DO G4 1 3¢ MOVL  ACFSL_DEVNAME(R10),R1 =: Pointer to device name 
66 O1A1 80 o2¢ ! $ MOVW 1(R1)7 (RO) 3; Form default driver name 
OA AA Q000243C'EF 90 ets 1295 30$: MOVB BOOSGL_CONAUNIT,ACFS$B_AUNIT(R10); Set adapter unit 
21 AA 00002430"EF 90 O65E 1 36 MOVB L“*BOOSGL _CONNUMU, ACF $8_NUMUNIT (R10) 
Reee 129 5 store number of units to configure 
OB AA 990024 B'EF 90 0666 1298 MOVB_ BOOSGL_CONFLAGS,ACFSB_AFLAG(R10) ; Store flags 
0000241C'EF 00002434'EF Al +43 1299 ADDW3 BOOSGL CONVECT ,BOOSGL_COMBO_VECTOR_OFFSET,=; 
10 AA 0679 1300 ACF $W_CVECTOR(R10) ; Set vector address 
50 O000241C"EF 08 02 F 0678 1301 EXTZV #2,#8;BOOSGL_COMBO_VECTOR_OFFSET,RO; Save vector offset in lLongwords 
1F AA 650.090 0684 1308 MOVB RO, ACF$B_COMBO_VECTOR_OFFSET(R105; 
eas 1304 ; Set up ACFSL_CONTRLREG = can either be UNIBUS CSR or address of CI 
Sb 18s 2 
0000244C EF DS 0688 1307 TSTL BOO$GQ_CONSYSID ; See if SYSIDLOW was specified 
OA 13 se) 1308 BEQL 40$ :; Branch if not 
OC AA 0000244C'EF 9E 069 1309 MOVAB BOO$GQ_CONSYSID, - 
0698 1310 ACFSL_CONTRLREG(R10) ; Set systen id address 
ee pene 131) BRB 50$ 3; Branc 
Bena 1318 ; Calculate system virtual address of UNIBUS CSR 
00002428"EF 00001000 8F C1 069A 1315 40$:  ADDL3 M#UBA_IOBASE, - 
OC AA 06A5 1316 BOOSGL_CONCREG, - 
06A7 1317 ACF$L_CONTRLREG(R10) ; control register address 
OC AA 04 AA CO O6A7 1318 ADDL ACFSL_CONFIGREG(R10), - 
O6AC 1319 ACFS$L_CONTRLREG(R10) ; Add adapter va base 
00002420°EF CO O6AC 1320 ADDL BOOSGL_COMBO_CSR_OFFSET,-; Add offset to get true CSR address 
OC AA 06B2 1321 ACF$L_CONTRLREG(R10) ; 
00002420'EF 8E 06B4 1358 MNEGB BOO$SGC_COMBO_CSR_OFFSET,-; Calculate offset back to CSR start 
20 AA O6BA 1323 ACF$B_COMBO_CSR_OFFSET(R10); Save offset 
12 AA 0000242C'°EF B80 O68C 1325 50S: MOVW BCOSGL_CONCUNIT, - ; 
064 1326 ACF$W_CUNIT(R10) ; Set controller unit number 
1C AA 00002448'EF B80 064 135 MOVW BOO$GC_CONUNITS, - : : 
06CC 1328 ACF $W_MAXUNITS(R10) : Set maximum units 
1E AA 00002438'EF 90 O6CC 13¢2 MOVB BOOSGL_CONNUMV, - 
6D4 1330 ACF$B_CNUMVEC(R10) ; Set count of vectors 
50 01 p00 0604 1331 55$: MOVL #1,R0 ; Set success 
04 0607 1336 RET : 
0608 13 
0608 1334 -DSABL LSB 
0608 1335 


C 
= SYSGEN UTILITY AND PARAMETER FILE Bort Vb me 1 tab + 00:13:54 feaove. Macro V04-00 
BOOSLOAD - Load a driver or misc code if 14-SEP-1984 16:09:11 (CBOOTS.SRCISYSGEN.MAR; 3 


0608 1 3 -SBTTL BOOSLOAD = Load a driver or misc code if not already loaded 
: BOOSLOAD - Loads the driver or misc code if not already loaded. 
‘Entry BOOSLOAD, “M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 


40 

41 

a8 

4 CLRL = RR ; Clear reload flag 

44 BRB LOADRV ; And merge with common code 


Page 31 
’ (4) 
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Y AND PARAMETER FILE EDIT 16-SEP-1984 00:13:54 pales Perce v04-00 Page 32 
6:09:11 (4) 


IT 
Reload a specified driver 14-SEP-1984 BOOTS.SRCJSYSGEN.MAR; 3 
! rt -SBTTL BOOSRELOAD = Reload a specified driver 
Ps 
| 1 +3 ; BOOSRELOAD - Reloads the specified driver replacing any oq setvng copy 
— 1349; unless there are busy units requiring the driver that would 
; : ? ; be replaced. 
| : § Entry BOOSRELOAD, “M<R2,R3,R4,R5,R6,R7,RB,RO,RIO,RII>D ; 
52 1354 MOVB #ACFSM_RELOAD,R2 ; Set flag to force reload 
| E 35 LOADRV: 
fe 7 33 ; The first block of the file will be read to determine if it is a driver or 
oS : 8 ; misc code by looking at the type field. 
| 00002444"EF Dd 06E3 1360 PUSHL  BOOSGL_CONDRV ; File name string 
6E g8 6E9 1361 INCL P) ; Get past the count 
7E vases * pads! A eB 1 6¢ MOVZBL @BOOSGL_CONDRV,-(SP) 3 Length of file name 
7 43 6F2 136 MOVL 7 ; Address of desriptor for file name 
F908" F5 1364 BSBW BOOSE XEOPEN : Open the file (default SYSS$SYSTEM: .EXE) 
SE 50 €9 O6F8 1365 BLBC RO,408 ; Error 
5 08 0 pore 136 ADDL #8,SP 3; Clean up stack 
56 0000¢ 00°EF ‘ Fe 136 MOVAB BOOSAB_LOADBUF ,R6 : Buffer for file read 
2 00 0705 1368 MOVL RB :; First block after image header 
59 1 8 0708 1 +4 MOVL 3 One page 
FBF2" 30 0708 1370 BSBW BOOSREADFILE 
48 5 9 O70E 1371 BLBC 4 3 Error ; 
peEC® 0 0711 137 BSBW © BOOSFILCLOSE : Close the currently open file 
2 50 9 0714 137 BLBC RO,4 > Error 
OOOO220A"EF 91 0717 137% CMPB = BOOSAB_LOADBUF +SLV$B_TYPE,- 
ef 071D 1375 #DYNSC_LOADCODE ; Check for misc code 
C 13 O71F 137 BEQL LOADCOBE 
F8OC’ 30 0721 137 BSBW BOOTLE OCR GEN : Lock SYSGEN database 
50 9 0724 1378 BLBC RO,40$ : If lbc, didn’t get lock 
5A 0000248C ‘EF 3 of 7 1379 MOVAB L“BOOSAL_ACF,R10 3; Get base address for ACF block 
18 AA oy ee 1”) 72E 1380 VL BOOSGL_ CONDRV, ACF SL_DRVNAME (R10) : 
OB AA 2 0736 1381 vB 2,ACFSB_AFLAG(R10) ; Set flags for load or reload 
AA D4 073A 1386 CLRL ACF $L_DEQNAME (R10) 3; No device name : 
OOOOO000"EF 6A FA O73D 138 CALLG (R10),L*IOGENSLOADER ; Load requested driver 
03 50 &8 0744 1384 BLBS = RO, 208 : Continue if no error 
F 8B6" 0747 1385 BSB =—- PUTERROR : Give error message 
50 3 aren 1386 20$: PUSHL R ; Save status 
F8B1" 30 O74C 1387 BSBwW BOOSUNLOCK_GEN ; Unlock SYSGEN database 
03 50 8 74F 1388 BLBS RO, 308 ; If no error, continue 
F8AB' Pee 1 34 BSBW PUTERROR 3; Give error message 
50 8ED 755 «1390 30S: POPL R ; Restore status 
P38 1391 RET ; Exit 
FBA4’ 30 0759 1 8 40$: BSBW PUTERROR ; Give error message 
06 O75C 139 RET : Exit 
75D 1394; 
75D 1395 LOADCODE: ; 
00002444"EF DD 228 1 36 PUSHL BOOSGL_CONDRV ; File name string 
6— 06 0763 139 INCL ; Get past the count 
7E veees } ah’ 9A 0765 139 MOVZBL @BOO$SGL_CONDRV,-(SP) i Length of file name s 
oe 76C 139 MOVL & 3; Address of desriptor for file name 
oeRe Ge t+ BSBW BOOSUEOOPEN 3; Open the file for user access (default SYS 
22 E 7 ¢ 1401 BLBC RO,10$ ; Error 
5E 08 0 0775 1402 ADOL #8,SP 3 Clean up stack 


c---- -- 


| SYSGEN = SYSGEN UTILITY AND PARAMETER rif Bit 16-SEP-1 754 VAX/VMS mac ro V04-00 Page a 
yoeeb02 BOOSRELOAD = Reload a cooatiied Griver 14-SEP-19 3b 9: §3:74 :11 (BOOTS. sed SYSGEN.MAR; 3 ° 4) 
00002200°EF 99F 0778 1403 PUSHAB BOOSAS_LOADBUF : Use cope buffer for return address array 
1 OD O77E 1404 PUSHL Ri ; Chan 
¢ ) 7 1405 PUSHL os ; Arg. oul 
50 D 7 14 MOVL 
785 14 SCHERNL 3 "foursy = EXESLOAD_ CODE ,- 
7 14 ST = (RO) 
4 794 16 BLBS 
OF ee 797 1410 10$ BSBW 004208 
79A 161 RET 
798 1418 
798 1413 208: SCMKRNL_S ROUTIN = LINK_CODE 
EA 50 ‘9 7AA 14146 BL eC RO,10$ 
7AD 1615 RE 
7AE 1318 3 
7AE 1417 LINK_CODE: 
7A 1313 -WORD “M<R2 
780 141 MOVL G*BOOEAB. *TOADBUF R2 : Address of loaded code 
0 0787 1420 MOVL 4 ; Save address of loaded code 
53 10 AG 0 O7BA 1421 MOVL BCVA fieae R3 ; Get address of vectors in SYS.EXE 
00000000'GF 16 O7BE 14 ¢ JSB Cex SLINK_VEC ; Connect vectors to loaded routines. 
1050 €9 O7C& 14 BLBC ; Leave on error 
5C O00025BC'GF 0D 7C7 «1426 MOVAL 6600861 LOAD_ARGS,AP ; Argument List for initialization routine 
50 O04 A6 OD {AS 1425 MOVL SLVSL_INTTRINTR4), RO 3; Possible initialization routine 
oe- 9 702 14 $ BEQL 1 ; None, leave 
6044 16 O704 14 JSB (RO) CR4) ; Call it 
04 O7D7 1428 108: RET 
07D8 1429 


| 
2 mage 
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“SYS N = SYSGEN UTILITY AND PARAMETER FILE EDIT 16-SEP-19 0:13:54 VAX/VMS Macro v04-00 Page 34 
othe BOOSGIVEHELP = Print Help Ter File 1o-3E 5-1 382 9:0 711 EBOOTS SRCISYSCEN. MAR: 3 . (4) 
| 4 14 1 -SBTTL BOOSGIVEHELP = Print Help information 
2p 14 § : Print Help Information 
003¢ 208 14 5 [Entry BOOSGIVEHELP, “M<R2,R3,R4,R5> ; 
9 "GE OF O7D/S 14 $ PUSHAB Gru L8SGET. INPUT 3 Input routine 
4‘EF F Q7EO 14 3 PUSHAB AG ; Flags 
559°EF F O7E6 14 PUSHAB teh LECCE ILE ; Library 
98 AC B60 O7EC 1440 MOVW dy L STRINIGENT (AP), - 
00002578 'EF 7EF 1641 HEL ; Set length 
oc AC DO O7F4 1066 MOVL reast STRINGPTR(AP) ,= 
900033 See 7F7 164 P_BESC+4 3; Set address 
0000257 . oF ans 1444 Eee HELP” DESC ; Input string 
E 04 0802 1445 CLR (SPY 3 Width 
00000000'GF 9F 0804 1446 PUSHAB G*: 1BSPUT OUTPUT 3; Output routine 
00000000'GF 06 FB BEOA et CALLS #6,G*LBRSOUTPUT_HELP : Call help routine 
04 0811 1449 RET ; Return with status 
0812 1450 
0812 1451 ~END 
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| SYSGEN 16-SEP-1984 00:13:54 VAX/VMS Macro v04-00 Page 35 

Symbol table 14-SEP- 1984 92: b3:74 :11 (BOOTS.SRCISYSGEN.MAR; 3 weet 
| $$T1 = 01 BOOSCONUNITS 0000443 RG 4 
$$12 2 09 85 BOOS CONVECOFF SET 09009 34 RG 5 
$CLI. = 464 R 04 BOOSDEVNAME Ad RG 5 
SCLl. = 00002480 R 4 BOOSE XEOPEN eeenenee 5 
ACESB. AFLAG = $ B BOOSF ILCLOSE eeeeeeee : 5 
ACF$B~AUNIT = A BOOSF ILOPEN eeenenee XK 05 
ACF $B~CNUMVEC = 000 If BOO$GB_FILELEN 00024FD RG 4 
ACFS$B~COMBO_CSR_OFFSET = 99000¢ BOOSGIVEHELP 00007D8 RG 5 
ACF$B~ COMBO “VECTOR _OFFSET = 0000001F BOO$GL_CMDOPT aeeneeee KX 06 
ACF $B -NUMUNTT = 00000021 BOO$GL“COMBO_CSR_OFFSET 00002420 RG 04 
ACFSC “LENGTH = 00000028 BOO$GL ~COMBO “tector _OFFSET 0000241 RG 4 
ACFS$GC_CRB 0024 ¢ RG 04 BOO$GL—CO 9000 4g4 RG 04 
ACF S$GL~DDB 60042400 RG 4 BOO$GL~CONAUNIT 43C RG 4 
ACFS$GL~DPT 000024614 RG 04 BOO$GL CO 00002454 RG 04 
ACF S$GL~1DB 00002608 RG 04 BOO$GL “CONC 0000 428 RG 04 
ACE SGL “LASTDDB 0000 410 RG 04 BOO$GL~CONCUNIT 0000242C RG 04 
F$GL"SB 00002418 RG 04 BOO$GL—CO 00002440 RG 04 
A F$GL~UCB 00002404 RG 04 BOO$GL ~CONDRV 00002444 RG 04 
ACFSL_ADAPTER = 00000000 BOO$GL ~CONF LAGS 00002458 RG 04 
ACF SL CONF IGREG = 00000004 BOO$GL~ CONNUMU 00002430 RG 04 
ACF SL~CONTRLREG = 0000000C¢ BOO$SGL ~CONNUMV 00002438 RG 04 
ACF SL ~DEVNAME = 00000014 BOO$GL ~CONUNITS 00002448 RG 04 
ACF $L~DRVNAME = 00000018 BOO$GL ~CONVECT 00002434 RG 04 
ACF SM~RELOAD = 00000001 BOO$GL “DOT ateeteee 05 
ACFS$V~CRBBLT = 00000001 BOOSGL—F ILEADDR 000024F9 RG 04 
ACF $V~GE TDONE = 00000005 BOO$SGL-LOAD_ARGS 9000258¢ RG 04 
ACF$V"NOLOAD_DB = 00000003 BOO$GL “NEXTSTR 0000245C RG 04 
ACF SW~AVECTOR = 00000008 BOOSGL~PARINUSE QOO024FE RG 04 
ACF $W~CUNIT = 00000012 BOOSGL RE TSAVE 000024C4 RG 04 
ACF $W~CVECTOR = 00000010 BOO$GL “SELECT 90002460 RG 04 
ACF SW~MAXUNIT = 0000001C BOO$GO~CMDESC = 0000246C RG 04 
ADPSL~AVECTOR = 0000001C¢ BOO$GQ~CONSYSID 0000244C RG 04 
ADPSL~CSR = 00000000 BOOSGQ"LIMITS 90002484 RG 04 
ADPSL LINK = 00000004 BOO$GQ"RETADR 0000248C RG 04 
ADPS$W-TR = 0000000¢ BOOSGT-ACTI 0000250A RG 04 
AUTOLOG 0000028F RG 06 BOO$GT~ CURRENT 00002502 RG 04 
BOO$AB_LOADSUF 00002200 R 04 BOO$GT~CVNAME 0000 ADE RG 04 
BOOSAB~ PATCH 00000000 RG =-(04 BOOSGT~DDNA 000024FO RG 04 
BOO$AB~PRMBUF 00000200 RG 04 BOOSGT~DEF AULT 00002511 RG 04 
BOOSAL ACF 0000248C RG 04 BOOSGT~DXNA 000024E7 RG 04 
BOOSAL ~CLIBLK 00002464 RG 04 OOSGT~FIL 00002519 RG 04 
BOOSA_PRMBLK etentene 06 BOOSGT-OPNAME 000024DA RG 04 
BOO$SCONADP 0000031F RG 05 BOO$GT~PROMP 00002480 RG 04 
BOOSCONAUNIT 0000372 RG = 05 BOOSGT~SAVE DEVWAME 00002614 R 04 
CONC 0000367 RG = 05 BOO$GT~SYSPARNAME teeters X 05 
CONCR 0000034A RG = 05 BOOSHI Cin 90000000 RG ~=s «O03 
BOOSCONCSROF FSET 0000033F RG 05 BOOSLOAD 00000608 RG «05 
CONCVE 00000357 RG = 0S BOOSLOCK_GEN eeeeeere xX 06 
BOO$CONDRVNAM 0000037D RG =s«O5 BOOSLOLIA 00000000 RG «02 
BOOSCONF IGALL 00000089 RG 06 BOOSMAKLIST QOOOOZEE RG 0S 
BOOSCONF I GONE O00000F8 RG 06 BOOSMSCP_ARG 00002DB RG 05 
BOOS CONNEC 000004AB RG OS BOOSMSCP”RESET 000029A RG = 05 
BOO$CONNL ADP 0000 324 RG 05 BOOSREADF ILE eeeeenee =X 05 
BOOSCONRE SET 000200 RG 5 BOOSRELOAD QO0006DE RG 05 
CONSOL 9000 464 RG 05 BOOSRESETLIST 0000026 RG 5 
BOOSCONSYSID_HIGH 0000459 RG = 05 BOOSSEARCH tenteres 5 
BOO$CONSYSID~LOW 0000044E RG 05 BOOSSENDOPER 00000140 Re” 5 
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SYSGEN = SYSGEN UTILITY AND PARAMETER F T 16-SEP*1 :13:56  VAX/ ? 
Symbol table never Fite Eo1 eee eSe PBb5iks FORSVES Resse vee-Oe,., «—Pase 77, 
SGNSGET 


age tg DEY vice LOCK, 
CVSA SY sve : 1008 


vwnnw 
“” 
oe 
o 
a 
<—-Hy 
335223 
Faroe a 
— 
< 
nm 
nhunnnnnun 


$S$_NOSUCHDEV 908 
SYSSCMEXEC eeeeeeee GX 
SYSSCMKRNL teeeenee GX 
SYSSFAO eereeeee x 
SYSSGETJPI eeeeeenre GX 1 
SYSSPUTMSG eennenee GX 
SYSSSNDOPR eeeeeeee GX 5 
SYSG$_ CONF QUAL = pore O8A 
SYSGS$_INVADAP = 007C80BA 
$_NOADAPTER = 007C80D 
SVSG8_ .NOAUTOCNF = peene 
“NODEV = 007C€901 
aye _NOTPAR = OO7CB0EA 
SYSGS_WRITEACT = Boer Apté 
SYSGS_WRITECUR = 007CA01B 
TPASL_ = 0000001C 
TPASL_PARAM = 00000020 
TPASL~ _STRINGCNT = 00000008 
TPASL_STRINGPTR = 00000¢ 
| TPASL_TOKENCNT = 00000010 
TPASL oe = 00000014 
1 = 00001000 
UCBSL CRE = 00000024 
UCBSL_LINK = 00000030 
UCBSW_UNIT = 9444 Fs 
VALID_PAR_FILE 0002580 R 04 
VECSL_1DB = 00000008 
teow eee eee eee ee + 
: ;_Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
» OS « 444 ( on 0 ( 9.3 NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ 0000000 ( on 1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 
$$$$000 i494 444 ( . 4 ( §°} NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC BYTE 
722 000 4 ( 8.) 8 ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC PAGE 
RORPAGED_DATA 00002700 (10192.) 04 ( 4.) NOPIC USR CON REL LCL NOSHR NOEXE AD WRT NOVEC QUAD 
PAGED_COBE 0000081 ( 2066.) 05 ¢ 5.) NOPIC USR CON REL LCL NOSHR EXE RD WNOWRT NOVEC LONG 
NONPAGED_ CODE 0000042 ( 1059.) 06 ¢ 6.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 
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! Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 
Initialization 7 :00: 8-97 : 8:8 49 
Command processing 1 :00:00.74 :00:03.19 
cess cant ; 5 :00: a°13 :00:4 83 
able sor :00:03. : ‘ 
Pass 296 ° 2 3° § 13.4 
Symbol table output 31 :00:00.26 0 ¥ 4 
Psect synopsis output 4 0:00:00.04 0: 338 05 
Cross-reference output 0 Boh Se: 2 0:00: 8-08 
Assembler run totals 1081 :00:34.6 7:01:10. 


The working set_Limit was 2000 pages. 

137940 bytes_(270 pages) of virtual memory were used to buffer the intermediate code. 

There were 130 pages of symbol table space allocated to hold 2287 non-local and 105 local symbols. 
1451 source Lines were read in Pass 1, produc inp 130 object records in Pass 2. 

50 pages of virtual memory were used to define 47 macros. 
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! Macro library statistics ! 
+ 
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Macro Library name Macros defined 


-$255$DUA28: (BOOTS .OBJJBOOTS .MLB; 1 1 
_-$255$DUA28: (SYS .OBJJLIB.MLB; 18 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 25 
TOTALS (all Libraries) 44 
2422 GETS were required to define 44 macros. 

There were no errors, warnings or information messages. 
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